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Tandy 1400 HD S999* 

Tandy 1 02 32K $439 

TandyWP-2S279 



Tandy 2500 XL $1119 
Tandy 3000 NL $869* 
Tandy 4016 SX $1 489 
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Color Computer Disk Drive 
Drive $239 Drive 1 $149 




SAVING 5 ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PROOUCTS 

COLOR COMPUTER MISC. 

79.00 ■ 



COMPUTERS 

Tandy 1000 HX1 Drive 256K 259.00" 

Tandy 1 500 HD1 Drive 640K 1499.00 

Tandy 2500 XL 1 Drive 1 Meg 111 9.00 

Tandy 1000 RL HD-1 Drive-512K 829.00 

Tandy 1 1 00 FD 1 Drive 640K 689.00 
PRINTERS 

Radio Shack DMP-1 07 1 20 CPS 21 9.00 

Radio Shack DMP-302 270 CPS 469.00 

Radio Shack DMP-1 34 1 60 CPS 269.00 

Radio Shack DWP-230 Daisy Wheel 1 79.00 

Tandy LP-950 Laser Printer 1 299.00 

Tandy DMP-240 192 CPS 8 color 415.00 

Panasonic KXP 1 1 80 1 92 CPS 1 89.00 ' 

Panasonic KXP 11 91 240 CPS 259.00 " 

Panasonic KXP 1 1 24 1 92 CPS 329.00 ' 

Okidata320300CPS 369.00 

Okida1a390270CPS24WireHD 515.00 

OKI Laser 400 4PPM 699.00' 

MODEMS 

Radio Shack DCM-6 52.00 

Radio Shack DCM-7 85.00 

Practical Peripheral 1200 Baud 149.00 

Practical Peripheral 2400 Baud 1 79.00 



Radio Shack Drive Controller 
Extended Basic Rom Kit (28 pin) 
64K Ram Upgrade Kit (2 or 8 chip) 
Radio Shack Deluxe Keyboard Kit 
HI-RES Joystick Interface 
Color Computer Deluxe Mouse 
Mulli Pak Pal Chip for COCO 3 
COCO 3 Service Manual 
Serial to Parallel Converter 
Radio Shack Deluxe Joystick 
Magnavox 8135 RGB Monitor 
Magnavox Green or Amber Monitor 
Radio Shack CM-8 RGB Monitor 
Radio Shack Pistol Grip Joystick 
PBJ OK COCO 3 Upgrade Board 
PBJ 51 2K COCO 3 Upgrade 
Tandy OK COCO 3 Upgrade Board 
Tandy 51 2K COCO 3 Upgrade 
COLOR COMPUTER SOFTWARE 



The Wild West (COCO 3) 
Worlds of Right 
Mustang P-51 Flight Simul. 
Flight 16 Flight Simul. 



TAPE 

34.95 
34.95 
34.95 



14.95 
3900 
24.95 
8.95 
44.00 
14.95 
29.95 
59.95 
19.95 

299 00 
99.00 

249.00 
26.95 
24.95 
99.00 
39.95 

129.00 

DISK 

25.95 
34.95 
34.95 

34.95 
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Multi-View by Tandy 
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CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 



com 







P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (508) 486-31 93 



TRS-80 is a registered trademark of Tandy Corp. 
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Terminal Entries Response 

Editor: 

Although Jim Issel's "Terminal Entries" 
article was fairly thorough, I feel he ne- 
glected a few things. The most serious was 
his omission of Ultimaterm's 45-number 
dialing directory, something 1 find inde- 
spensible in my telecommunications. All 
the parameters for each individual system 
can be set in the directory. It also has a re- 
dial feature that keeps calling a busy sys- 
tem until it gets through. The other thing 1 
take issue with is that there are macros in V- 
Term as well as a 15-number dialing direc- 
tory. In fact, I use these macros to access 
Delphi (username, password, etc.) when 
I'm using v-Term. You can also configure 
i Term as a I28K or 512K terminal. In the 
128K mode, you have full use of firmware 
ram disks, such as those you would find on 
a 512K machine using Extended ADOS3. 
Finally. I think AuloTerm should have been 
included in the overview, since it is quite 
popular as well. 

D. Steven Ricketts 
Boring. Oregon 

The Temperate Zone 
Editor: 

I looked in one of your issues and found 
a fan by REM Industries, Inc. I would like to 
know if the company is still in business. 
My dad asked me if there is a program to 
monitor the inside and the outside tempera- 
ture. Would it be possible to send some 
information on this type of program and 
what hardware would be involved, besides 
my 64K CoCo 2 and disk drive? 



Anthony Kiper 

Route I, Box 657 

Grayson. KY 41143 

See "Burden's Buffer" in the February 
1990 issue. Page 42. Also. Tony Distefano 
started a project on temperature sensing in 
the January /w/ issue. 

The Frustrating EOF 

Editor: 

I am becoming completely frustrated 
with the following program. I have only a 
beginner's knowledge of basic, acquired 
in 19X4 when I bought my CoCo 1. Since 
then 1 have been on my own learning from 
THE rainbow. I started with a cassette 
system and have added a disk, which I am 
still learning to use. My system also in- 
cludes a DMP-130. 1 bought a CoCo 3 re- 



cently, but I do not have the RGB monitor 
yet. 

Going through back issues of THERAJN- 
BOW to locate programs to (hopefully) run 
on my CoCo 3. 1 saw this little hint called 
Data Finder. 

No matter where I put the EOF line (Line 
(.0). the computer gives me an IE Error in 
Line 40. Please help me! 

I had the same problem with XMASLIST 
(rainbow. December 1987. Page 66) when 
I changed it for disk operation as directed. 

20 CLS:INPUT"WHAT IS THE NAME OF 

THE DATA F I L E " : D F $ 
30 0PEN"I".#1.DF$ 
40 INPUT#1.D$ 
50 PRINT#-2.D$ 

60 IF D$-"E0F"0R D$-""THEN 80 
70 GOTO 40 
80 CLOSEtfl 

90 "PRINTS A DATA FILE WITHOUT T 
HE PROGRAM IT BELONGED TO 
100 'RB0W MAY 84 PG 81 HINT 
110 "FIXED FOR PRINTER 

Betty McCormick 

P.O. Box 71243 
Las Vegas, NV 89170 

Not all data files meet the requirement 
of having an end-of-file string or a blank 
line. We suggest you replace Line hO with 

60 IF E0F(1) THEN 80 

Also change INPUT ;"/; Line 40 to LINE 
INPUT to allow Data Finder to read lines 
exactly as they are written. 

Getting to the Flip Side 

Editor: 

I have just purchased OS-9 Level II and 
would like to configure my system to use 
my double-sided disk drive. I used conf ig 
and was successful in making a new system 
disk and formatting some disks. But how 
do I backup or copy this system disk to one 
of these newly formatted double-sided 
disks? According to my manual, the only 
command to do this is dsave. Is this cor- 
rect? My problem is that 1 have only one 
disk drive. According to my manual, there 
is no parameter for single drive as there is 
with copy and backup. Can you help me? 

1 read the letters first when I get my new 
copy of THE RAINBOW and find them very 
informative. I could not find any letters that 
referred to my specific problem. I also re- 
read several back issues about OS-9. but 
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..Just think of any word processing feature, 
chances are Word Power has it.. .packs a lot of 
fcatgres...cxcellenl word processor..." Word 
Proc. Co»piri«o«-April 1989 Rainbow. Pg 2<. 



Word Power 3.3 

The Best Just Got Better! 



"...friendly., amazing execution 
speed... much easier lo use lhan VIP 
software & 2 other systems I've 
tried ...very user friendly.. highest among 
word-processors"-Rainbow Oct 88 Rev. 



SPEED 

Blazing Fast! Runs 
at 2 Mhz and uses 
the standard text 
bcreens for lightning fast execu- 



MEMORY 

Word Power 3.3 allows 72K ofj 
workspace on a 128K CoCo and 
460K on a 512K CoCo. More memory| 
than any other word processor. Period. 



EDITING 

Powerful full-screen editor w/1 
word-wrap. 4-way cursor,scrol- 
ling; Line Positioning; Block 
Commands; Search, Replace; 
lOOPs recall during delete, adjustable key- 
repeat, key-click, typeahead, Tabs, Word-Count 
and much more! . Built-in extensive HELP 
screen can be accessed anytime during edit. 




SPOOLER 

Print and Edit docu- 
ments at the same 



*T> 



DISPLAY 



Choice of 40 or 80 
columns with your 
choice of colors. Can 
be used with RGB/ 
Composite/Mono- 
Ichrome Monitors and TV. Pull down 
menus, plain english prompts, on-screen 
underlining and page break display make 




SORTING 



Son lists in a flash! 



CALCULATOR 

Built-in 4 function calculator! 




SPLIT-SCREEN 
EDITING 

Freeze a portion of text and edit 
another. Its fantastic! 



GRAPHICS 

Insert graphics in 
your documents! 
Allows you to im- 
port PMODE 3/4, 
HSCREEN and CoCo Max 



2 COLUMN PRINTING 

Align your text in 2 columns 
svith a few keystrokes! 



SAVING / LOADING 

Creates ASCII files that are compatible with 
other word-processors, terminal programs, 
etc. Allows directory point & select for easy 
loading/saving. Automatic Backup, file 
erase, free space display. ARE YOU 
IsURE? prompts prevent accidental deletes. The Auto-Save 
feature automatically saves text to disk during user-defined 
intervals for peace of mind. Supports double-sided drives. 




MACROS 

Playback 
up to 250 
keystrokes 
with a sin- 
gle key! 
Automate multiple 
tasks with a single 
key! You'll love it! 





MAIL MERGE 

Type a letter, follow it 
with a list of names & 
addresses and have Word 
Power print out personal- 
ized letters. Its that easy! 



PRINTING 

Works with all printers that work with the CoCo. Allows options 
such as baud rates, spacing, page/print pause, partial print, pagei 
numbering/ placement, linefeeds, multi-line headers/footers, right 
justification and number of copies. The values of these options can 
be changed in the text by embedding Printer Option Codes. The 
WHAT YOU SEE IS WHAT YOU GET feature allows you to preview the text 
on the screen as it will appear on the printer. You can view margins, page breaks, 




SPELLING CHECKER 

ord Power 3.3 include 
a 80,000 word spelling 
checker which finds and 
corrects mistakes in your 
text. 



J> 



jur 



DOCUMENTATION 

Word Power 3.3 comes with a well-written 
instruction manual & reference card which 
makes writing with Word Power as easy as pie. 
Word Power 3.3 comes on an unprotected disk. 



PUNCTUATION 
CHECKER 

This checker will proofread 
your text for punctuation 
Errors such as capitalization, dou- 
ble-words, a/an usage, spaces and 
more. Its the perfect addition to 
any word-proccessor. 



Only 

$79.95 



Upgrade Policy: Word Power 3.2 
owners can get Word Power 3.3 by 
sending original Word Power disk 
and S15 to the address listed below. 



MICROCOM SOFTWARE, I .W Brighton-Henrietta. TownlineRd,. Rochester. NY 14623 

ontinentai 

For Detailed Order Information, refer to Page 17 of our f.-pauc Ad seTies(Pgs 7-17). 

244 (9am-8pm 7 days/week) 
Technical Support (4-8pm), Order Status. Info. Technical Info: 716-292-1786 




again couldn'l find an answer. I do hope 
that, when Radio Shack discontinues the 
CoCo, you continue to publish THE RAIN- 
BOW. We CoCo users would be lost without 
it. 

Mahalo and Aloha from Hawaii. 

Martha A. Wry k 

1650 Kanuiui Street, mill 

Honolulu, III 96SI4 

We know of no easy way to copy a large 
number of files from disk to disk on a single- 
drive system. Perhaps one of our other 
readers can help. 

Control at What Price? 

Editor: 

Please give me suggestions on how to 
proceed with the following project. I want 
to take a CoCo 3 and use it as a controller. 
My preference is to use BASIC and have the 
program reside in EPROM (and non-volatile 
ram would be all right, too). My main goal 
isminimum hardware cost. (Nodisks, tape, 
etc.) 

Also, is there a Forth-language kernel 

for the CoCo 37 

Gus Calabrese 

4555 E. 16th Avenue 

Denver, CO 80220 

DP. Johnson, who may or may not still 
he in business, marketed a Forth language 
for use under OS-9. Check back issues of 
THE RAINBOW for their ad. 

In Excess 

Editor: 

A branch of our parochial school system 
recently received a grant of 12 IBM comput- 
ers to be used by 5- and 6-year-olds to learn 
to read. Tandy sells IBM-compatibles, so 
why should they continue with the CoCo 
when these kids are going to demand more- 
profitable MS-DOS systems'? 

1 love my CoCo. I know it can do what- 
ever I tell it to. These children will never 
know! 

There is a need for ibms in hospitals, hi- 
tech businesses, and manufacturing, but 1 
feel sorry for financially unable parents 
who must spend beyond their means to 
satisfy their children's superficial desires 
because the rich want to get richer. 

My children are all married, but I would 
not like it for my grandchildren to look at 
my CoCo as something unworthy. (Better 
to hide it before they arrive!) 

I like to compare computers with nu- 
clear energy. Both can be used for good, if 
used only in necessary amounts. Autos are 
built to exceed 100 mph. but only the race- 
track allows speeds in excess of 60 mph. So. 
the excess is potent, but not neccessary, 
making its cost excessive. 

It's true, the best costs less, as long as it 



is best for your needs. Any excess increases 
the cost, making it not the best for you! 
Unnecessary benefits are a luxury that keeps 
many people fooled. 

Vic Kclls 
Appleton. Wisconsin 

ML09? 

Editor: 

I' m try ing to gain some proficiency with 
OS-9/BASIC09 and in perusing back issues of 
this magazine I often see machine-language 
routines outlined. I wish THE rainbow 
would get someone competent to write 
some articles dealing with how to generate 
and get machine language into OS-9/BAS- 
IC09. I'd also like to see you cover how to 
use the Development System, whose man- 
ual totally ignores the question of how to 
use it. with representative examples. 

Hope to get a positive response to this 
request! 

F. Bruhns 

2224 Canyon View 

Fallbrook, CA 92028 

Speaking of Hardware 

Editor: 

I didn't find in the November 1990 issue 
of THE rainbow the manual, of sorts, that 
explains how to use the Tony DiStefano's 
eprom programmer and software (October 
1990. Page 64). 

In the same issue Marty Goodman is 
correct in suggesting the use of amber 
monochrome monitors. I prefer mono- 
chrome when using socolumn text. The 
use of the following CoCo 3 pokes are 
necessary to get a good monochrome pic- 
ture on all screens: 

POKE &HE033.16 
POKE &HE03C.19 
POKE &HE045.19 
POKE &HE07A.144 
POKE &HE071.144 

Hang in there with hardware projects as 
well as the rest. 

R.R. Simpson 
Manhattan Beach. California 

The "manual" appears in the December 
installment of "Turn of the Screw." 

Breaking up Multi-Vue 

Editor: 

The Multi-Vue manual describes a pro- 
cedure to bring up the control program as a 
stand-alone routine in a 16-color window, 
allowing users to set up the additional pal- 
ettes unavailable under the regular four- 
color gshel 1 window. It may be of interest 
to your readers to know this procedure can 
also be used to run the Calendar program in 



a similar way. The advantage to this is the 
data file created when the program is run 
can then be double-clicked to bring up the 
user's personal dates to remember. 

To accomplish this, an icon for the Cal- 
endar program must be created (use 
IconEdit or Maxic to create this) and stored 
in the ICONS subdirectory. Next, an AiFfile 
must be created and stored in the aif (or 
root) directory. This file must have the 
same three letter extension as the data file(s) 
tobecreated.(IuseAIF.remasareminder.) 
The following is my A I F . rem file: 

Calendar (name of program | 

( blank ) | no parameters | 

ICONS/lcon. Calendar (path to icon) 

| use default memory ) 

6 ( select 320x 192 4-color graphics window ) 

40 (screen width 1 

24 (screen length) 

(background palette register) 

1 ( foreground palette register) 

Do not type the comments in the brack- 
ets. These are for information only. 

You are now ready to call up the Calen- 
dar program in the normal way. via the 
Tandy menu, and enter your personal data. 
When you are finished, save the file as 
Personal .rem, for example. When you 
return to the gshell window and update 
your current data directory, you will find 
the file Personal under your Calendar icon. 
Double-clicking on this file will run Calen- 
darwith Personal as a parameter and there 
you are! Note that any files bearing a . rem 
extension will be displayed with your Cal- 
endar icon, so you can have any number of 
data files. 

Gerry Gerhart 

Huntsville. Ontario 

Canada 



THE rainbow welcomes letters 
to the editor. Mail should be ad- 
dressed to: Lettersto Rainbow. The 
Falsoft Building, P.O. Box 385, 
Prospect, ky -10059. Letters should 
include the writer's full name and 
address. Letters may be edited for 
purposes of clarity or space. 

Letters to the editor may also be 
sent to us through our Delphi CoCo 
sic;. From the CoCo sk;> prompt, 
type RAI to take you into the Rain- 
bow Magazine Services area of the 
sig. At the rainbow> prompt, type 
LET to reach the I.ktters> prompt 
and then select Letters for Publica- 
tion. Be sure to include your com- 
plete name and address. 
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All Disto Products now carry a 1-Year Warranty. All 
Disto Add-Ons (& Super Controller II) include OS9 

Driver Disks, unless otherwise specified. 

Disto Mini Controller (with RSDOS or CDOS) : $74.95 

Disto Super Controller (wiih RSDOS or CDOS): $99.95 

Disto Super Controller II (with RSDOS or CDOS): $129.95 

• Mini Eprom Programmer Add On: $54.95 

• Hard Disk Adapter: $39.95 w/ RS232: $69.95 

• RT Clock & Printer Interface: $34.95 (OS9 Driver. $19.95) 

• 3-in-l Multiboard Adapter Parallel Port, RT Clock & 

RS232 Port. $74.95 
• MEB Adapter II: $34.95 

• 4-in-l Board: Parallel Port, RT Clock, RS232 & Hard 

Disk Interface: $129.95 
RSZ32 Super Pack: True RS232 Port for your CoCo! Compatible 
»nh Tandy® RS232 Pack. Includes DB2S Cable. 100% Compaliblc wiih 
OS9 ACIA Software. Rcq. Multipak. Only $54.95 





Systems w/ Seagate Hard Drive, Controller, Cables, CoCo XT 
Interface, Cables, Case (with fan, Power Supply and room for 
second drive), Software & Instruction Manuals. As- 
sembled/Tested/Formattcd. Just Plug'N'Run. Rcq. Multipak. 



Seagate 20 Meg System: $459! 
Seagate 40 Meg System: $549! 



CoCo XT: Use 2 5- 120 Meg Drives with your CoCo. Only $69.95 

w/ Real Time Clock: $99.95 

CoCo XT ROM: Boots OS9 from hard/lloppy. Only $19.95 

HYPERIO: Allows Hard Drive use with RSDOS. Only $29.95. 

HYPERIO Disto Version. Only $29.95 

HYPERIII: RAMDisk & Spooler to CoCo 3 HYPER I/O. $12.95 

HYPERIO Utilities (by Kevin Berner) 
Hard Drive Utilities: MSA Backup, Copy/Kill/Renamc, Hard 
Disk Backup to Floppies (vica versa) & more. Only $21.95 
Disk Doctor: Checks/locks out bad sectors, only $17.95 
Hard Drive Zap: View tracks, sectors, modify data on your hard 
disk. Only $21.95 



. .ier'c arc a lot of dealers selling disk drives for the CoCo. Why buy from us? First, 
all our drives arc BRAND NEW DOUBLE SIDED Drives. They are sleek, fast 
(<>ms!), quiet and have a reputation of superb performance and reliability. Second, 
Mil Drive & 2 Drive Systems come with the acclaimed DISTO Controller - with gold 
plated contacts & built-in ROM which allows you to access B(7TH sides of our drives!. 
Third, our Drive & 2 Drive Systems come with the Official 200 page Radio Shack 
Disk Manual. Fourth, you get $50 worth of our utility software (Disk Util 2.1A & 
Super Tape/Disk Transfer). Our drive systems arc head & shoulders above the rest! 

Drive (with Disto Controller. Case. Power Supply. 1 Drive Cable. Manual, Software): $199 
Drive 1 (with Case. Power Supply & Software): $129 Bare 5 1/4" Drive: $89 

2 Drive System (With Disto Controller, Case. Power Supply, 2 Drive Cable. Manual & Software): 
S299 Full-Height Case/Power Supply: $59.95 Power Splitter: $9.95 

I Drive Cable: $16.95 2 Drive Cable: $22.95 4 Drive Cable: $34.95 
FD501 Upgrade Kit: Bare Drive, 2 Drive Cable & Instructions: $109 
FD502 Upgrade Kit: Bare Drive, 2 Drive Cable, Power Cable & Instructions: $119 
Toshiba 3 1/2" 720K Drive w/ Power Supply & Case: $149 3 1/2" Bare Drive: $99 



<^J»HT0RS _ 

MAGNAVOX 1CM135 RGB 
Monitor 

Razor Sharp picture quality for 
your CoCo! Has 14" Screen! , 
Analog/ITL RGB, Composite &' Jr 



Super VMS Inputs for CoCo 2/3. 
Stereo Sound.Text Display Switch. 
Till /Swivel Stand & 2 Year Warranty. Com- 
patible with CoCo. IBM, a VCR & more! 
Only $298 (add S12 S&H/S40 in Canada) 

Magnavox RGB Cable for CoCo 3 
and Composite Video / Audio Cable 
Set with Purchase of Monitor: $19.95 



'Oilier Good StufTT^^^^^^^^^^^^ 

(- DS69B Digitizer: Use your CoCo to display pictures from your VCR. Comes com- 
plete with CSEE Software. Only $149.95. CoCo 2 Version: $99.95 
Advanced Gravis Joystick: Features tension, rotary-centering, free floating with 



3 buttons. Only $59.95 

Deluxe 2-Button Joystick: Only $16.85 

Multipak Locking Plate 

(Specify CoCo 2/3 and 26-3024/3124): $8 
5 1/4" DS/DD Disks: $.40 each 
5 1 4 Colored DS/DD Disks: $.89 each 
3 I 2" DS/DD Disks: $129 each 
5 1 4' Disk Case (for 70 disks): $9.95 
9 1 2" Disk Case (for 40 disks): $7.50 
Black Ribbon: $8.50 
N \ 1 (KK) Color Ribbon: $12.95 



Microcom Serial to Parallel 
Interface 

• Runyourprintcralhighspecd(300-9600) 

• Designed by MartyGoodmansoyou know 
its quality. 

• Unlike other convfltlcrs. this uses CRYS- 
TAL oscillator which is VF.RY reliable at 
highcrbaud raiesand different temperatures. 
Only $44.95 

w / Serial Modem Switch: $54.95 



512KCoCo3 



Brand new Color Computer 3 
with 512K Installed and tested! 

Comes with complete manuals 
and $100 worth of software! 

Only $259 

Please Add $10 S&H 
512K Installat. Voids Warranty 



AJF 



VISA 



MICROCOM SOFTWARE 1 387 Brighton-Henrietta. TownlineRd.. Rochester. NY 14623 mmm 
TO ORDER: All orders $75 & above (except Printers, Monitors, Drives, Computers) shipped by UPS 2nd Day Air at no extra charge in Con- 
Mental US. We accept Visa. MC, Discover & Amex (3% surcharge for Amex), check, MO & School PO's. COD Orders (for orders less than $100) 
watm US add $5 extra. Please add 5% (min. $3) S&H in Continental US & 10% (min. $5) for Canada, Hawaii, Alaska & Puerto Rico. All foreign or- 
ders except Canada pay actual shipping charges (min $5) for US Air Parcel Post/§urface Mail (specify). NYS residents please add sales tax. Our 
Australian Agent: Australian Peripheral Development: Ph: 07-341-9061. 

Credit Card Toli Free Orderline 1 -800-654-5244 (9AM-8PM 7 Days/Week) 
Tech Info (between 4-8 pm). Order Status. Info: 716-292-1786. To Fax your order: 716-292-1775 



Documented Evidence 






The most alarming trend I detect in 
the whole computing area seems 
to me to be that which involves 
documentation. Documentation, of 
course, is the instructions needed 
to actually use a program. 

Much like anything else, even in our 
world of the CoCo there are distinct stages 
in how documentation has developed. First 
of all, most of it was written by the pro- 
grammers themselves. This has generally 
been horrid documentation since anyone 
who writes a program knows how it works, 
but usually has very little idea of how to 
explain it to anyone else. In addition, often 
such documentation is filled with technical 
details that make great sense to the pro- 
grammer, but precious little to "normal" 
people. 

Throughout the Color Computer's his- 
tory. I believe quite a number of good 
programs have been ruined simply by their 
documentation. This really is a shame, but 
despite suggestions from customers to 
negative reviews on these pages, for some 
it remains the way things are. 

The second stage of documentation 
development seems to have come about 
when program authors did indeed decide 
they were not conveying the message prop- 
erly and hired professionals to write the 
instructions for them. While this made 
things a bit easier in the CoCo world, in 
other computer platforms I think most of 
these writers were paid by the word: this 
was (and is) some of the most comprehen- 
sive documentation ever seen — pages and 
pages and pages of it. 

I once had friends who went into busi- 
ness as "professional documentation au- 
thors." Although they never got any major 
orders, they did get enough work and ended 
up writing a fairly simple word processor to 



help with their work. Unfortunately, they 
tried to market the word processor and used 
its documentation as an example of how 
they could thoroughly explain someone 
else's program. 

It was thoroughly explained in three or 
four different ways. Fortunately, the pro- 
gram had only about a dozen functions and 
the documentation was "limited" to about 
250 pages. You get the idea. 

I am sure people like myself, who com- 
plain about massive amounts of data to 
digest, have prompted the third stage in 
documentation. I call this stage the 1-2-3 
approach, with no intentional reference to 
the spreadsheet programs produced by 
Lotus. This stage simply tells you to per- 
form Step I. Step 2 and then Step 3 — no 
details: no information about why or what 
you can do to deviate from this approach. 
And worst of all. no way to correct anything 
that goes wrong (if. say. you hit the wrong 
key) without starting over again at Step 1 . 
Interestingly. CoCo documentation gener- 
ally has not followed this path. I hope it will 
not. 

Microsoft seems to be the world's leader 
in 1-2-3 documentation. For example, they 
have even hard-bound their documentation 
for Wordfor Windows, but it is still pretty 
much all 1-2-3. This is fine if everything 
goes right while you are doing whatever it 
is you want to do. but more explanation 
really is necessary. 

Through talking with a number of people 
in the business, I find the 1-2-3 approach 
produces the most user-friendly documen- 
laiion. We're likely to see more of it in the 
future. I hope not — or at least I hope not 
until it is augumented by real explanations 
of how the particular program works. I say 
this from personal preference, but also 
because I think that no matter how basic the 



level of computer skill the userposesses. it 
helps the user understand what he is doing 
regardless. 

I once hired a secretary primarily be- 
cause her resume showed she had experi- 
ence using the same word processor I used. 
1 thought life would be easier if we did not 
have to convert formats back and forth. 
About two days after she came to work, she 
asked me how to do a search and replace. I 
told her something like "press the Search 
key, then type in the word you are looking 
for . . ." 

She interrupted me and asked which 
keys I was talking about. I repeated, "the 
Search key." 

"But what key is that?" she asked. 

"F2." 

"Oh. OK." she said. 

We then went through the keystroke 
sequences and she wrote it all down. A 
week or two later, she returned with the 
same question. I told her I thought she knew 
how to use this particular word processor. 
She replied that she did. 

"Well. then, why don't you know that F2 
is the Search key?" 1 asked. 

She replied. "Oh. I don't know what the 
keys are for. 1 just press them." 

I pointed out to her. and I'll point out to 
you and to all the members of the l -2-3 
school of documentation, she didn't know 
a thing about the program. She would spend 
countless hours looking up the right keys 
rather than just learning what they do. 

If the documentation that comes with a 
program frustrates you. let the software 
publisherknow about it. I think it will make 
for better documentation in the future. 



— Lonnie Falk 
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A DISK ISA 




THING m 

WASTE 





Join DELPHI and educate your disks Willi 
public domain programs from Ihe world's premier 
online CoCo library. DELPHI'S Color Computer 
area is managed by Marty Goodman, so you know 
you'll find lots of great stuff. 

Downloads are only $6.00 per hour, with no 
surcharge for high speed access and no premium 
for dialing locally via Tymnet. If you have many 
floppy disks or a large hard disk, join DELPHI'S 
20/20 Advantage Plan and enjoy downloading 20 
hours each month for $20. 

As a Rainbow subscriber, you get a FREE 
lifetime DELPHI membership ($29.95 value) 
which includes a credit worth one evening hour of 
use. If you don't already subscribe to Rainbow, 
just request a subscription when you signup to 
DELPHI and. for the $28 subscription fee. you'll 
i he same great deal! 



SIGNUP NOW FOR FREE 

Dial 1-800-365-4636 (Modem) 

At Usemame: type JOINDELPIII 

At Password: type RAINBOW, if you already 

subscribe to Rainbow 
type SENDRA1NBOW. if you do 

not yet subscribe and wish 

to do so. 



DELPHI 

THE WORLD'S PREMIER ONLINE SERVICE 



General Videotex Corporation • Three Blackstone Street • Cambridge MA 02139 

800-544-4005 • 617-491-3393 



L 
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an I save 
times 



meet? D 
^^v yourmonjey 
about upcoming 
a bookkeeper to 
Meet llmne Budg 
Home Budget 
record and ma 
- ijet. estimate 



iny money? Is it some- 
di ficult to make ends 



scrollable (up/down, left/right) data dis- 
play . easy to use sin] ;le-key option menus. 



i you wonder where 

goes? Do you forget 

tyills? Perhaps you need 

balance your budget. 

t Analyst. 

Ww/v.v/is a program to 
ntain your personal 
income and expenses! 



help 



tor future budgetiig periods, view future 
account balance;, provide a record ot 
income and payments and forecast fi- 
cuncial necessitit s and opportunities. 
Features of tl is program include aj 



film Dufur work -for Airborne Express 



a* a development 

P 6- ; systems. I 
\venu 
- include at 



nanagerfor data proc- 
e can be contacted at 
SI. .Renton.WA 9M59. 
SASE when requesting 



disk storage and rec 
mation as well as 
budget information 

Home Budget A uily 
forecasts your next 
ods (or paydays) to 
balancing of paymerit 
Home Budget Anal 



casted balances and 
each item entered. \J 
casted balance eitl 



loans and credit cai 
increasing amount 



)very of budget infor- 
va rious printed views of 

•st calculates and 
nine budgeting peri- 
allow scheduling and 
S over future periods. 
\tst retains and main- 



tains period incom : and expenses, fore- 
year-to-date totals for 
ou can make the forc- 
er increasing or de- 
creasing to see remaining amounts on 



d balances as well as 
in savings or other 
accounts. Three priked reports pro vide a | 
record of income and expense history. 

Home Budget At alyst is easy to use. A 
menu of options if, displayed on each 
screen to assist yoi r movement through 
the budgeting functions. In most cases, a 



single key performs 

program 



he functions of this 



The original versi sn of Home Budget 
Analyst was published in THE RAINBOW 
in March 1986. Sinci then 1 have made 
many improvement ; in its operation, 
function and appear; nee. It has become 
an extremely useful tlool for maintaining 
a personal budget. 



Starting Your Pers mal Budget 

To start the piogram enter RUN 
"BUDGET". Enter ycur password (any 
siring up to five claracters, use your 
name or the budget year) to identify your 
budget file. Begin your budget entry by 
selecting C to create a new budget file. If 
your file already exiws . select L to load. 

When opening a new budget file enter 
the dates of nine future "periods. "or pay- 
days, from which to establish your pay- 
ment dates. Start thp first period with 
your next payday. YAu are prompted for 
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HOME BUDGET ANALYST 

FORCASTBD BUDGET AMOUWTS FOR: DEMO 

IMCOME AMOUMTS 



PBRIOD> 


11/03 


11/17 


12/01 


12/15 


12/29 


01/12 


01/26 


02/09 


02/23 


JOHN 


853.21 


850.00 


850.00 


850.00 


S50. 00 


850.00 


850.00 


850.00 


850.00 


JANIS 


603.70 


0.00 


600.00 


0.00 


0.00 


600.00 


0.00 


600.00 


0.00 


OTHER 


0. 00 


0.00 


0.00 


0.00 


0.00 


0.00 


00 


0.00 


0.00 


TOTAL 


1456. 91 


850.00 


1450.00 


850.00 


550. 00 


1450. 00 


850.00 


1450.00 


850. 00 


BXPEMSE AMOUWTS 
















PERIOD) 


11/03 


11/17 


12/01 


12/15 


12/29 


01/12 


01/26 


02/09 


02/23 


RENT 


0.00 


500.00 


0.00 


0.00 


500.00 


0.00 


50 : 


00 


500.00 


CARPAY 


119.25 


0.00 


0.00 


119.25 


0.00 


119.25 




■ 25 


0.00 


PHONE 


47.35 


0.00 


50.00 


00 


50.00 


0.00 


0.00 


50.00 


0.00 


ELEC 


0.00 


120.00 


0.00 


120.00 


0.00 


0.00 


00 


0.00 


120.00 


VATER 


0.00 


0.00 


0.00 


0.00 


0.00 


0.00 


00 


0.00 


0.00 


GARBAGE 


0.00 


0.00 


0.00 


25.00 


0.00 


0.00 


0.00 


0.00 


0.00 


VISA 


50.00 


0.00 


0.00 


140.00 


0.00 


120.00 


0.00 


80.00 


0.00 


PENNEYS 


0.00 


60.00 


0.00 


0.00 


30.00 


0.00 


50.00 


0.00 


50.00 


EXXON 


0.00 


0.00 


80.00 


0.00 


80.00 


0.00 


80.00 


0.00 


80.00 


TVCABLE 


34.81 


0.00 


34.81 


0.00 


0.00 


34.81 


0.00 


34.81 


0.00 


AETNA 


78.90 


0.00 


0.00 


78.90 


0.00 


78.90 


0.00 


78.90 


0.00 


SAFECO 


130.00 


0.00 


0.00 


0.00 


130.00 


0.00 


0.00 


0.00 


130.00 


VACATN 


40.00 


0.00 


70.00 


0.00 


0.00 


50.00 


0.00 


40.00 


0.00 


SAVNGS 


100.00 


0.00 


120.00 


0.00 


0.00 


60.00 


0. 


00 


COO 


XMAS 


40.00 


0.00 


100.00 


0.00 


0.00 


40.00 


0.00 


40.00 


0.00 


EKRGNY 


40.00 


0.00 


70. 00 


0.00 


0.00 


80.00 


0.00 


25.00 


0.00 


BOAT 


30.00 


0.00 


30.00 


0.00 


0.00 


30.00 




30.00 


0.00 


HSEHLD 


320.00 


320.00 


320.00 


320.00 


320.00 


320.00 


320.00 


320.00 


320.00 


DDS 


60.00 


0.00 


60.00 


0.00 


50.00 


0.00 


58.00 


0.00 


10.00 


DR 


50.00 


0.00 


50.00 


0,00 


50.00 


0.00 


50.00 


0.00 


50.00 


IRA 


0.00 


152.00 


0.00 


152.00 


0.00 


152.00 


0.00 


152.00 


0.00 


TOTAL 


1240.31 


1152.00 


984.81 


955. 15 


1210.00 


1084.96 


1213. 00 


1039.96 


1260. 00 


BUDGET PERIOD BALANCE 














PERIOD> 


11/03 


11/17 


12/01 


12/15 


12/29 


01/12 


01 


02/09 


02/23 



BALANCE 316.60 -302.00 465.19 -105.15 -360.00 365.H -JM.OO 410.04 -410.00 

» 

Figure 1: Sample Table of Amounts 



the month and day of the period in each new 
file. You can now enter your budget items. 

Income and Expense Displays 

Income and Expense displays are iden- 
tical in operation. They provide a view of 
(he file with a scrollable up-down motion 
for a list of items in the file, or a left-right 
motion to span over budget periods. Up to 
45 expense items and 15 income sources are 
available, each with nine budgeting peri- 
ods. An "available" balance of committed 
funds is calculated for each budget period 



to allow for proper adjustments during times 
of cash shortage. 

Functions from the Income and Expense 
display are: 

Arrow Keys — move up or down the list of 
items and left or right through the budget- 
ing periods. Hold the shift key with the 
arrow to bring the list to the top or bottom, 
or the budgeting period to the extreme left 
or right. 

A-I — select the item to view or maintain 
by pressing the corresponding letter. 



N — add a new item to the budget list. 

P — use budget-printing functions. 

O — open a new budgeting period; the 

current period ( I ) will be rolled oil. 

X — exit to opposite display i expense to 

income or vice versa) 

S — save the budget information on disk 

M — see menu of the budgeting options. 

income and Expense Item Display 

This display contains unique informa- 
tion for each item, such as description, 
amount for all periods, average and (re- 
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quency of occurrence, and balances. Func- 
tions of the Item displays are: 

C — change information for the displayed 
item. When in the Qiange mode. 
an additional menu for selec- 
tion of information to change 
appears. 

D — delete the item being 
viewed. 

R — return to income or ex- 
pense display. 

1-9 — add or change amounts 
rinds 1 through 9. 

Description of Budget Infor- 
mation 

The following information 

red in your budget file. 

Much of it can be changed by 

selecting Option C from the Item 

ay to enter the change 

de . 

Name and Information 

N — Enter up to seven characters to iden- 
;he income or expense item. Also pro- 
ed are up to 19 characters of space for a 

brief memo, explanation or reminder for 

each item. 



Average Amount and Frequency 
A — Amount to automatically add at the 
specified interval for the item when a new 
period is opened. After the amount is en- 



DR$(x)/CRS(x) 


Debit/Credit Item Name 


DA(x)/CA(x) 


Debit/Credit Item Average Ami 


0F(X)/CF(X) 


Debit/Credit Item Ave Ami Frequency 


DY(X)/CY(X) 


Debit/Credit Item YTD Balance 


DT(X)/CT(\) 


Debit/Credit Totals 


DB$(X)/CB$(X) 


Debit/Credit Item Balance Type 


0B(x.y)/CB(x.y) 


Debit/Credit Item Balance Amount 


DR(x.y)/CR(x,y) 


Debit/Credit Item Period Amount 


OL/CL 


Debit/Credit Last Item Number 


PD$(x) 


Period Date 


BL(x) 


Budget Balance 




x = item, y = period 


Figure 2 


: Major Program Variables 



tered, a second prompt requests the fre- 
quency. The frequency indicates the num- 
ber of periods skipped before the amount 
again becomes due. If the item does not 
currently carry budget period amounts, this 



amount is placed into your budget at the 
desired frequency. The amount and fre- 
quency can be changed at any time. 

Budget Period Amount 
1-9 — Amount to receive or pay 
during a particular period. This 
amount is originally defaulted 
by the average amount for the 
item and can be added to or 
changed at any time. 

Forecast Balance 
B — This balance is displayed 
over the next nine budget peri- 
ods for a cumulative view of the 
account's future. 
I — increasing forecast balance. 
D — decreasing balance. 

YTD Total 
Y — Year-to-date total is al- 
ways ascending. The total is 
maintained and increased each 
time a new period is opened. To 
maintain proper yearly amounts, the YTD 
total should be zero at the end of the year. 

Budget Period Dale 
Nine budget period dates are entered dur- 



[D Hyper -Tech Software 



MVCanvas2.0 
Finally a professional lull screen editor for OS-9 Level II 
Ktd Mulli-Vue. MVCanvas is ihc only CoCo graphics editor to support 
■uiliple resolutions with up to 16 colors of 64 displayed in 320 x 200 
-. "J-.- with palette animation and full functional clipboard. 

MVCanvas also supports multiple fonts with nwam bold 

. .Time, and proportional options. Printer support includes: Epson. 

5-^»r. C.lloh. DMP (Tandv), with color printer supported for Star 

'XI R. Citizen GSX-l'40. Tandy DMP-240 amd CGP-200, Epson 

ljQ-2550 and compatables. 



ShcllMatc2.2 
ShellMale is the epitome of what a point and click file 
nent system was meant to be. With ShellMate. you have 
.ommands such as copy, move, delete, rename, makdir and 
touch of n button. It BUM gives you point and click access to 
I Public Domain picture display utilities VEFShow and GIFOS9. as 
iXhc archive utility Ar. 

The biggest benefit of ShellMate is that it allows you to 

luge b.ikhes of files with one mouse click when either 

, moving, deleting 0* arcing. You can also easily move through 

ously displayed Source and Destination directory trees by 

doable clicking on a subdirectory name, or clicking on the 

tnand. 



System Requirements (both programs) 
CoCoi. OS-9 LVL II, Multi-Vue. Disk Drive and 512k 

MVCanvas S49.95 

SbdlMate S24.95 

SflOS/H S2.50 C.O.D (U.S. only) Nev. res. add 6% sales tax 

Send Check / Money Order 
*-T«.-o Software /434I Gannet Cir. #174 / Las Vegas. NV 89103 
Phone: (7D2)362-5346 





WE'VE CHOSEN THE BEST OF OVER 760 PROGRAMS (OVER 6 YEARS 
OF ACCUMULATING FINE SOFTWARE), AND PACKAGED THEM FOR 
YOU. 12 PROGRAMS EACH PACKAGE. COLOR COMPUTER I, II or III. 
SPECIFYTAPE OR DISK. ONLY S29.9S EACH PACKAGE! 5 NEW ONES! 
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T & D Subscription Software • 2490 Miles Standisn Or • Holland. Ml 49424 • 16161 399-9648 



29" EACH SET 

* Special This Month * 

Buy 2 Packages and get 1 

FREE 



TURN TO 

PAGES 39 4 71 FOR 

A COMPLETE LISTING OF 

ALL OUR PROGRAMS 
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ing the creation of a new file. Also, each 
time a new period is opened (Option O 
from any display), an additional period 
date is entered. The period date is stored in 
mm/dd format. 

Schedule your personal budget dates by 
paydays. Schedule all your bills to specific 
paydays. If you have a two-income house- 
hold with different pay dates, an alternative 
is to hold one of the income sources so it 
coincides with each budget period. 

Available Balance 
Amount of funds uncommitted, or over- 
committed if account is negative, during a 
particular budget period. The calculated 
balance is a sum of all income less expenses 
for each period. The available balance 
appears on income and expense displays 
for each of the nine budget periods. 

Opening a New Budget Period 

After bills for the current period have 
been paid, open a new future period. Select 
Option O to open a new period, and enter 
the new ninth period date. The function 
drops the first period, moves the Period 2 
amount to Period 1 , and so on until the ninth 
period is empty. Ninth-period amounts are 
defaulted based on the average amount and 
frequency. That is. the entries in all previ- 
ous records are averaged in both value and 
frequency. These values are then entered 
into the ninth period for you. For example. 



if you entered a car payment of S25u in 
periods 2. 4. 6 and 8. this is entered in 
Period 9 afterthe program moves periods 2. 
4. 6 and 8 to periods 1 . 3. 5 and 7. All bal- 
ances are automatically updated. Remem- 
ber to make any necessary adjustments to 
this value. 

Printed Reports 

Several printed reports are available to 
view your budget information. Option P 
offers the following reports. 

Current Payments 
P — This report prints a summary of items 
in the first period of your budget. Only 
those items with amounts during the period 
are printed. The report can be used as a 
guide for paying bil Is. It is also an excellent 
record of payments and income. 

Table of Amounts 
A — This report gives you a hard-copy 
representation of your entire budget. Each 
income and expense item is listed with the 
amount allocated for the nine budget peri- 
ods as shown in Figure I . 

Table of Balances 
B — This report lists forecasted balances 
for all items for each period. 

Saving Budget Information 

It is important to save your budget file 



32K Disk 




100 181 

200 56 

260 23 

340 22 

410 181 

500 108 

570 42 

640 3 

690 192 

740 76 

780 101 

850 49 

900 32 

970 122 

1060 159 

1140 55 

1220 34 



after each session of updating. This saves 
the changes and makes them available for 
your next session. The program does not 
automatically save your budget file. Your 
budget file is saved with the name 
B XX XXX .BUD where XXX XX is your five-char- 
acter password. 



1330 233 

1440 215 

1530 92 

1610 80 

1690 107 

1770 241 

1860 13 

1970 243 

2080 113 

2170 146 

2260 255 

2300 185 

2340 72 

2400 48 

2450 251 

2530 220 

2620 236 



2690 57 

2770 79 

2820 73 

2860 237 

2910 159 

2960 240 

3030 232 

3090 195 

3140 74 

3210 12 

3270 

3350 93 

3440 55 

3530 43 

3590 233 

END 129 



The Listing: BUDGET 

10 'HOME BUDGET ANALYSIS 

15 "WRITTEN BY GLEN DUFUR 

20 'COPYRIGHT FEBRUARY 1991 

25 'BY FALSOFT. INC. 

30 "RAINBOW MAGAZINE 

40 CLS:PRINT" WAIT. . .'" :GOTO3690 

50 "--- SURE CURSOR 

60 GOSUB160:PRINT@466."y/n": 



70 POKE(1024+466).32:POKE(1024+4 

68). 32 :K$-INKEY$:POKE( 1024+466). 

25:POKE(1024+468).14 

80 IFKS-"" THEN70 ELSERETURN 

90 '--- SELECT CURSOR 

100 PRINT@448.STRING$(6.CHRt(128 

))::K$-INKEY$:PRINT@448."select" 

: : IFKS-"" THEN100 ELSEK-VAL(KS) : 



Technical Information 

Figure 2 shows the major program vari- 
ables used by Home Budget Analyst. 

The program is written to support a DMP- 
130 printer. Adjustments can be made to 
support other printers. Please refer to the 
following information for printer baud and 
codes. 

Printer Baud Rate 
Change POKE 150.18 in Line 2770 for a 
different baud rate: 

POKE \§Q.XX(XX = your baud selection) 



Baud 


Value 


600 




I2IXI 


40 


2400 




4800 


7 


9600 


1 



Printer Control Codes 

The values for 00$ through Q4$ in Line 
2770 represent the following printer control 
codes. Change the values to the codes 
needed for your printer. 



String 


Control 




Variable 


Code 




QOJ 


Compressed ( I 


2cpi) 


Qlt 


Italic start 




Q2J 


Italic end 




Q3$ 


Bold start 




Q4$ 


Bold end 




Speed-Up 


Poke 





To disable the operation of this feature, 
change lines I2()andl30to RETURN. If using 
this poke, the program automatically puts 
things back to normal for all I/O routines.LI 
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RETURN 

110 '--- SPEED POKES 

120 GOSUB150:POKE65495.0:GOSUB15 

0:RETURN 

130 GOSUB150:POKE65494.0:GOSUB15 

0:RETURN 

140 "--- SOUNDS 

150 FORSS-1TO2:SOUND220.1:NEXTSS 

: RETURN 

160 FORSS-1TO9:SOUND220.1:NEXTSS 

: RETURN 

170 '--- BLANKING 

180 PRINT@448.STRING$(63." ")::R 

ETURN 

190 ■--- CALCULATE 

200 IFH$<>"Y" THENRETURN ELSEHS- 

"":GOSUB150:GOSUB180:PRINT@459." 

calculating"; 

210 LB-0:FORX-1TO NE:DT(X)-0:CT( 

X)-0 

220 FORY-1T0 DL:DT(X)-OT(X)+DR(Y 

.X):NEXTY:F0RY-1T0 CL:CT( X)-CT(X 

)+CR(Y.X):NEXTY:BL(X)-CT(X)-DT(X 

):LB-LB+BL(X):NEXTX:RETURN 

230 '--- LIST TOTALS 

240 PP-384:FORX-I(0)TO I(0)+2:PP 

-PP+8:PRINT@PP. USING N8$;BL(X);: 

NEXTX:RETURN 

250 ' — - LIST DATES 

260 P1-I(0)+48:P2-I(0)+1+48:P3-I 

(0)+2+48:POKE( 1024+13). PI :POKE(l 

024+21 ) . P2 : POKE( 1024+29 ) . P3: PR1N 

T@41.USINGA5$;PD$(I(0))::PRINT@4 

9.USINGA5$;PD$(I(0)+1);:PRINT@57 

.USI NGA5$:PO$( I (0)+2):: RETURN 

270 "--- GET ITEM DATA 

280 GOSUB150:GOSUB180:PRINT@449. 
nAME bAL 1 NCREASE/dECLINE 

CHANGE aVG-AMT yTD-TOT rETURN" 

;:GOSUB100 

290 IFK$-"I" THENGOSUB570:GOTO28 



300 IFK$-"D" THENGOSUB570:GOTO28 



310 IFK$-"N' 



320 IFK$-"A" 



330 IFK$-"B' 

1 

340 IFK$-"Y* 



350 IFK>0 AND K<NE+1 THENRETURN 

360 IFK$-"R" THENRETURN ELSE280 

370 GOSUB180:PRINT@449."DESC: "; 
:UB150:LINEINPUT"":XD$:GOSUB1 

M:PRINT@449."INF0: ": :GOSUB150: 
E INPUT"" : X I $ : I FXD$-"" THEN I FI 
"e" THENXD$-DR$(I) ELSEXDS-CR 

380 XDS-XD$+S5$+S5J:XX$-"":XX$-L 
F7I(XD$.7)+" "+LEFTS(XI$.19):XD 

S:PRINT@02.STRING$(28." "): 
35« IFIE$-"e" THENDR$(I)-XD$:GOS 
S400: ELSECR$(I)-XD$:GOSUB640 
4M RETURN 

JB180:PRINT@449."AVG AMOU 
"UB150: INPUTXA: I FXA-0 THE 
-1:GOTO430 

GOSUB180:PRINT@449."FREQ(l-9 
;:GOSUB150:INPUTXF 

>9 THEN420 ELSEIFXF<1 TH 
-: 

;S-"e" THENDA(I)-XA:DF(I) 
.3530: ELSECA(I)-XA:CF(I) 
".5UB550 
RETURN 



THENGOSUB370:GOTO28 
THENGOSUB410:GOTO28 
THENGOSUB490:GOTO28 
THENGOSUB460:GOTO28 



460 GOSUB180:PRINT@449."YTD BAL" 

;:GOSUB150:INPUTXY 

470 IFIE$-"e" THENDY(I)-XY ELSEC 

Y(I)-XY 

480 PRINT@65.US1NGN9$:XY;:RETURN 

490 GOSUB180:PRINT@449." BEGIN B 

AL";:GOSUB150:INPUTXB 

500 IFIE$-"e" THEN520DB(I.0)-XB: 

XT-0:GOSUB600 ELSECB( I .0)-XB:XT- 

0:GOSUB640 

510 RETURN 

520 DBU.0)-XB:XT-0:GOSUB600:RET 

URN 

530 XX-0:FORX-1TO NE:XX-XX+DR( I . 

X):NEXTX:IFXX>0 THENGOSUB600: RET 

URN 

540 FORX-1TO NE STEPDFt I ) :DR( I .X 

)-DA(I):NEXTX:H$-"Y":GOSUB600:RE 

TURN 

550 XX-0:FORX-1TO NE:XX-XX+CR( I . 

X):NEXTX:IFXX>0 THENGOSUB640:RET 

URN 

560 FORX-1TO NE STEPCF( I ) :CR( I .X 

)-CA(I):NEXTX:H$-"Y":GOSUB640:RE 

TURN 

570 GOSUB150:IFIE$-"e" THENOBJd 

)-K$:GOSUB890:GOSUB600: ELSECBSC 

I)-K$:GOSUB890:GOSUB640 

580 RETURN 

590 '--- LIST DR AMT/BAL 

600 PRINT@02.DR$(I)::PRINT®65.US 

INGN9$:DY(I);:PRINT@75.USINGN7$; 

DA( I ) : : POKE1024+51 . (DF( I )+48) : PR 

INT@85.USINGN9$;DB(I.0); 

610 PP-128:F0RX-1T0 NE:IFDB$(D- 

••1" THENDB(I,X)-DB(I.X-1)+DR(I.X 

) ELSEDB(I,X)-DB(I.X-1)-DR(I.X) 

620 PRINT@PP+1.USINGN1$;X;:PRINT 

®PP+2.">";:PRINT@PP+4.USINGA5$;P 

D$(X)::PRINT@PP+11.USINGN8$;DRU 

.X)::PRINT@PP+21.USINGN9$;DB(I.X 

);:PP-PP+32:NEXTX:RETURN 

630 '--- LIST CR AMT/BAL 

640 PRINT®02.CR$(I)::PRINT@65.US 

INGN9$:CY(I); : PRINT@75 .USINGN7$; 

CA( I ) : :POKE1024+51 . (CF( I )+48) : PR 

INT@85.USINGN9$:CB(I.0): 

650 PP-128:F0RX-1T0 NE:IFCB$(I)- 

"I" THENCB(I.X)-CB(I.X-1)+CR(I.X 

) ELSE CB(I.X)-CB(I.X-1)-CR(I.X) 

660 PRINT@PP+1.USINGN1$;X;:PRINT 

SPP+2 .">":: PR I NT@P P+4 . US I NGA5S : P 

DJ(X)::PRINT@PP+11.USINGN8$:CR(I 

.X): :PRINT@PP+21.USINGN9$:CB(I.X 

);:PP-PP+32:NEXTX: RETURN 

670 "--- DELETE DR ITEM 

680 GOSUB180:PRINT@460."SURE?":: 

GOSUB60:IFK$O"Y" THENK$-"":GOTO 

1450 

690 GOSUB180:PRINT@457."deletein 

g 1tem";:DR$(I)-"":DB$(I)-"":DB< 

I.0)-0:DA(I)-0:DY(I)-0:DF(I)-0:D 

L-DL-1 

700 FORZ-1TO NE:DR(I.Z)-0:NEXTZ: 

FORX-I TO DL: I FDR$(X+1 )-"" THEN7 

20 

710 OR$(X)-DR$(X+l):DR$(X+l )-"": 

DA(X)-DA(X+1):DA(X+1)-0:DY(X)-DY 

( X+l ) : DY ( X+l )-0 : DF( X )-DF( X+l ) : DF 

(X+1)-0:DB$(X)-DB$(X+1):DB$(X+1) 

-"•':DB(X.0)-DB(X+1.0):DB(X+1,0)- 

0:FORZ-1TO NE:DR( X.Z)-DR(X+1 .Z) : 

DR(X+1.Z)-0:NEXTZ 

720 NEXTX:H$-"Y":GOSUB200:GOTO10 

50 

730 •--- DELETE CR ITEM 

740 GOSUB180:PRINT@460."SURE?":: 



GOSUB60:IFK$O"Y" THENK$-"":GOTO 

2080 

750 GOSUB180:PRINT@457."deletein 

g item"; :CR$( I )-"" :CB$( I )-"":CB( 

I.0)-0:CA(I)-0:CY(I)-0:CF(I)-0:C 

L-CL-1 

760 FORZ-1TO NE:CR(I.Z)-0:NEXTZ: 

FORX-I TO CL: I FCR$ ( X+l )-"" THEN7 

80 

770 CR$(X)-CR$(X+1):CR$(X+1)-"": 

CA(X)-CA(X+1):CA(X+1)-0:CY(X)-CA 

(X+1):CA(X+1)-0:CF(X)-CF(X+1):CF 

( X+l )-0 : CB$( X )-CB$ ( X+l ) :CB$( X+l ) 

-"":CB(X.0)-CB(X+1.0):CB(X+1.0)- 

0:FORZ-1TO NE :CR(X .Z)-CR(X+1 ,Z) : 

CR(X+1.Z)-0:NEXTZ 

780 NEXTX:H$-"Y":GOSUB200:GOTO16 

60 

790 '--- GET ITEM AMOUNT 

800 GOSUB180:PRINT®449."PERIOD"K 

"AMOUNT"; :GOSUB150: INPUTXX : I FIE$ 

-"e" THENDR(I.K)-XX ELSECR(I.K)- 

XX 

810 H$-"Y": RETURN 

820 •--- INIT DISPLAY SCREEN 

830 CLS:IFIE$-"e" THENX1$-CHR$(2 

52):X2$-CHR$(243):XX$-"expense" 

ELSEX1$-CHR$(204):X2$-CHR$(195): 

XX$-"1ncome"+BBJ 

840 PRINT®0.STRING$(32.BB$);:PRI 

NT@352.STRING$(32.X1$);:PRINT@41 

6.STRING$(32.X2$); 

850 PRINT@0.XX$;:PRINT@7." ";:PR 

INT@15." ";:PRINT@23." "::PRINT@ 

31." ";:PRINT@09."per";:PRINT@17 

."per": :PRINT®25."per"; 

860 PRINT@40.CHR$(133);:PRINT®46 

.CHR$(138);:PRINT®48.CHR$(133);: 

PRINT@54.CHR$(138)::PRINT@56.CHR 

$(133)::PRINT®62.CHR$(138): 

870 PRINTS32 . "di spl ay" ; : PRINT@38 

4.BB$;"avlbl":BB$::PRINT@449." 

arrws a-i nEW SAVE oPN x mE 
NU SCRLL SEL ITM pRNT PER ""::P 
OKE(1024+462).45:RETURN 
880 '--- INIT ITEM SCREEN 
890 CLS:XX$-STRING$(8.BB$):PRINT 
@1.CHR$(141);:PRINT®30.CHR$(142) 
;:PRINT@33.XX$;:PRINT@41.CHR$(13 
1 ) ; : PRINT®34 . "y td" : : PRINT®38 . "to 
t"; 

900 PRINT@52.CHR$(130)::PRINT@53 
,STR1NG$(10.BB$);:PRINT@116.CHR$ 
(138) : : PRINT0117 . STRINGSC 10 . BBS ) 

910 PRINT®42.STRING$(10.BBJ)::PR 

INT@106.STRING$(10.BB$);:PRINT@9 

7.STRING$(8.BBJ); 

920 PRINTS98. "period": :PRINT@108 

."amount"; :PRINT@118. "balance";: 

PRINT@42."avg"::PRINT@46."evry": 

:IFIE$-"e" THEN940 

930 IFCB$(I)-"I" THEN950 ELSE960 

940 IFDB$(I)-"I" THEN950 ELSE960 

950 PRINTS53. "increasing": :GOT09 

70 

960 PRINTS53. "declining": 

970 PRINT@416.STRING$(32.X2$);:P 

RINT@448." CHANGE n 

EW ITEM ACTION PER dELETE r 

ETURN"; 

980 POKE(1024+459).45:POKE(1024+ 

458). 49 :POKE( 1024+460). 57: RETURN 

990 '--- FILE FULL 

1000 GOSUB180:PRINT@458."file fu 

ll"::SOUND1.7:RETURN 

1010 '--- SCROLL DR MONEY 
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Protect and highlight 
your important 
magazine collection 

with sturdy 
RAINBOW binders 




Distinctive, Durable RAINBOW Binders 

the rainbow is a vital resource to be referred to 
again and again. Keep your copies of the rainbow safe 
in our quality, distinctive binders that provide com- 
plete protection. 

These attractive red vinyl binders showcase your 
collection and ensure your rainbows are in mint 
condition for future use. Each binder is richly em- 
bossed with the magazines name in gold on the front 
and spine. They make a handsome addition to any 
room. 
Put an End to Clutter 

Organize your workspace with these tasteful bind- 
ers. Spend more time with your CoCo and eliminate 
those frustrating searches for misplaced magazines. 

A set of two binders, which holds a full 12 issues of 
the rainbow, is only $13.50 (plus $2.50 shipping and 
handling). 

Special Discounts on Past Issues 

To help you complete your collection of the rain- 
bow, were offering a special discount on past issues 
of the magazine. 

When you place an order for six or more back issues 
of the rainbow at the same time you order binders, 
you are entitled to $1 off the regular back issue price. 
To order, please see the "Back Issue Information" 
page in this issue. 
Know Where to Look 

You may purchase the "Official And Compleat Index 
To THE RAINBOW" for $1 when you purchase a set 
of binders. This comprehensive index of rainbow's 
first three years (July 1981 through July 1984) is 
usually priced at $2.50. 



YES. Please send me 



set(s) of RAINBOW binders 




Take advantage of these special offers with your binder purchase: 

Save $1 off the single issue cover price for back issues. Minimum order of 6 magazines. Please 

enclose a back issue order form from a recent issue indicating magazines wanted. 

Purchase the "Official and Compleat Index to THE RAINBOW" for $1. (Regular price $2.50.) 

(These offers good only with the purchase of a rainbow binder set) 



Name _ 
Address 
City 



State 



ZIP 



□ My check in the amount of 

Charge to: □ VISA 

Account Number 

Signature — 



_ is enclosed. (In order to hold down costs, we do not bill.) 
□ MasterCard □ American Express 
Expiration Date 



_/ V AAftCQ 



Mail to Rainbow Binders, The Falsoft Building, P.O. Box 385, Prosp 
Binders are $1 3.50 per two-binder set plus $2.50 shipping and handling, If your order is to be sent via US. mail to a post 
office box or f oreign country, please add $2. Kentucky residents add 6% sales tax; Canad.an res.dents, 7 /„ GST. U.S. 
currency only please. In order to hold down non-editorial costs,we do not bill. 

For credit card orders call (800) 847-0309, 8 a.m. to 5 p.m. EST 
All other inquiries call (502) 228-4492. 




1020 FORY-K0) TO ( I (0)+2) : IFDR( 


) THEN1430 ELSEI(1)-DL:GOTO1330 


1400 GOSUB260:GOSUB240:PP-72:FOR 


X.Y)<>0 THENPRINTOPX. USING N8$;D 


1180 IFK$-CHR$(10) THENIFK 1 )+( S 


X-KDTO (I(1)+(SE-1)):PRINT@PP. 


R(X.Y); 


E-D-DL THEN1430 ELSEIFDL<-SE TH 


STRING$(23.CHR$(143)): 


1030 PX-PX+8:NEXTY:RETURN 


EN1430 ELSE1320 


1410 IFX<(EN+1) THENPX-PP:GOSUBl 


1040 '--- DEBIT DISPLAY 


1190 IFK$-CHRt(94) THENIFI ( 1 )-lT 


020 


1050 IE$-"e":GOSUB830:GOSUB260:G 


HEN1430 ELSE1350 


1420 PP-PP+32:NEXTX 


OSUB240 


1200 IFK$-"M" THEN3290 


1430 SOUND200.1:GOTO1110 


1060 IFDL-0 THENPRINT@163. "enter 


1210 IFK$-"N" THEN1590 


1440 '--- DR ITEM UPDATE 


"BBS ;"expense"BB$"i terns":: PRINT® 


1220 IFK$-"X" THENI(1)-1:G0T0166 


1450 SOUND200.1:GOSUB890:GOSUB60 


229."hit"BB$"n"BB$"to"BB$"begin" 








::GOTO1110 


1230 IFDL-0 THEN1300 


1460 GOSUB100 


1070 PP-64 : PX-PP : 1 X-l : FORX-I ( 1 ) 


1240 IFK$-"S" THENIO-2:GOSUB2480 


1470 IF K>0 ANO K<NE+1 THENGOSUB 


TO I(l)+(SE-l):PRINT@PP+0. STRING 


:GOSUB200:GOTO1050 


800:GOTO1450 


S(32.CHRS(143)): 


1250 IFK$-"0" THENGOSUB2260:H1) 


1480 IFK$-"M" THENGOSUB200:GOTO3 


1080 IFX<(EN+1) THEN1090 ELSE110 


-1:GOTO1050 


290 





1260 IFK$-"P" THENGOSUB2710:I(1) 


1490 IFK$-"R" THENGOSUB200:GOTO1 


1090 PX-PP:PRINT@PP+0.IX$(IX)::P 


-1:GOTO1050 


050 


X-PX+1:PRINT@PX.USINGA6$:DR$(X); 


1270 FORX-1TO SE:IFKJ-I$(X) THEN 


1500 IFK$-"D" THEN680 


:PX-PX+7:GOSUB1020 


I-KX) 


1510 IFK$-"C" THENGOSUB280:IFK>0 


1100 I(IX)-X:IX-IX+1:PP-PP+32:NE 


1280 NEXTX: IFI-0 THEN1300 ELSEIF 


AND K<NE+1 THEN1470 ELSEIFK$-"R 


XTX:SOUND200.1 


DEN THEN1300 


" THEN1490 ELSEIFK$-"X" THEN1550 


1110 1-0:GOSUB100 


1290 IFDR$( I )<>"" THEN1450 


ELSE1450 


1120 IFK$-CHR$(09) THENIFI(0)-NE 


1300 SOUND1.1:GOTO1110 


1520 IFK$-"N" THEN1590 


•2 THEN1430 ELSE1380 


1310 '--- SCROLL DR UP&DOWN 


1530 IFK$-"P" THENGOSUB200:GOSUB 


1130 IFK$-CHR$(08) THENIFI(0)-1 


1320 I(1)-I(1)+(SE-1) 


2710:GOTO1050 


THEN1430 ELSE1390 


1330 IF( KD+CSE-1) )>DL THENK1) 


1540 IFK$-"S" THENIO-2:GOSUB2480 


1140 IFK$-CHR$(21) THENIFK01-1 


-DL-(SE-1):IFI(1)<1 THENKD-1 


:GOSUB200:GOTO1050 


THEN1430 ELSEI(0)-1:GOTO1400 


1340 GOTO1070 


1550 IFK$-"X" THENI(1)-1:GOSUB20 


1150 IFK$-CHR$(93) THENIFI(0)-NE 


1350 I(1)-I(1)-(SE-1):IFI(1)<1 T 


0:IFIE$-"e" THEN1660 ELSE1050 


2 THEN1430 ELSEI(0)-NE-2:GOTO14 


HENKD-1 


1560 lFK$-"0" THENGOSUB2260:GOTO 


00 


1360 GOTO1070 


1050 


1160 IFK$-CHR$(95) THENIFKD-1 


1370 '--- SCROLL DR SIDEWAYS 


1570 SOUND1.1:GOTO1460 


THEN1430 ELSEK 1 )-l : GOTO1070 


1380 I(0)-I(0)+1:GOTO1400 


1580 •- - NEW DR 


1170 IFK$-CHR$(91) THEN1FI(1)+(S 


1390 I(0)-I(0)-1:IFI(0)<1 THENK 


1590 DL-DL+1:IFDL>EN THENDL-EN:G 


E-D-OL THEN1430 E LSE I FDL<-( SE- 1 


0)-l 


OSUB1000:GOSUB200:GOTO1050 



Free Disk-ZAP with any purchase! 
VIP Software for the CoCo 3 

VIP Writer III includes VIP Speller $79.95 

VIP Calc III $69.95 

VIP Database III $69.95 

VIP Library /WDCE $179.95 

Upgrade Writer to Writer III $49.95 

Upgrade Calc to Calc III $29.95 

Upgrade Database to Database III. ...$39.95 
Upgrade Library to Library /WDCE.. ..$99.95 

VIP Software for ALL CoCos 

VIP Writer includes VIP Speller $69.95 

VIP Calc $59.95 

VIP Database $49.95 

VIP Disk-Zap $29.95 

VIP Integrated Library $149.95 

Upgrade any VIP pgm to VIP Library $99.95 



Upgrading? Send disk only + amount + S/H 
See January '90 ad for product descriptions. 

VISA M/C 

SD Enterprises info line (805) 566-1317 

P. O. Box 621 Carpinteria Ca 93013 

viP Library orders add $4 S/H USA, $5 Canada & $10 Foreign 

Ofer orders add $3 S/H in USA. $4 Canada, $6 Foreign. COD orders add an 
=::-—= Si 75 Checks allow 3 weeks tor delivery Calif, res add61M%tax. 



GRAPHICS SOFTWARE 
FOR NON-ARTISTS 



You don't have to draw well to create fabulous looking 
printouts on your CoCo. Zebra's three graphics software 
products all contain clip-art collections and each program is 
optimized for special types of printed items. 



AWARDS, CERTIFICATES, DIPLOMAS, LICENSES 



First Prize comes with 9 disks of clip art, borders, and tem- 
plates to make awards, certificates, diplomas, and licenses 
for business, education, family, general purpose, humor, re- 
ligion and sports $69.95 



SIGNS, BANNERS, GREETING CARDS 



The CoCo Graphics Designer Plus , comes complete with 
Border, Font, and Picture collections to make great signs, 
banners, and greeting cards $29.95 



LABELS WITH TEXT & PICTURES 



The Label Desig ner comes with picture and font collections 
and makes great labels with text and graphics. The pro- 
gram's features include automatic serial numbering, mail 
merge, and auto disk directories $29.95 

All products require 64K CoCo II, or 3, mouse or joystick, disk drive, and 

compatible printer. Please specify printer when ordering. Include $3 
S&H. Plus $3.50 if UPS COD, VISA/MC. Call or write (or Free Catalog. 



ZEBRA SYSTEMS, INC. 

121 S. Burrowes St., State College, PA 16801 
(814-237-2652) 
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or over 10 years, THE RAINBOW 
has been bringing RAINBOWfesl 
10 the CoCo Community. Being our 
20th consecutive show, this 
RAINBOWfesl promises to be a show to be 
talked about for lime to come. 

Come and walk the aisles — set your 
own pace between visiting the exhibits and 
attending the many invaluable, free 
seminars. Take part in the seminars offered, 
ranging in topics from BASIC to the sophis- 
ticated OS-9 operating system. 

Stop by the RAINBOW booth and meet 
the faces behind THE RAINBOW. As well, 
those who are written about throughout its 
pages will be there to meet you and answer 
your questions. While you're at the 
RAINBOW booth, you can also take 
advantage of the reduced prices on the 
entire RAINBOW bookshelf. In addition, 
prices on all back issues will be reduced, 
giving you a chance to fill those holes in 
your library. You*ll also meet many other 
people who share your interest in the Color 
Computer. RAlNBOWfest is a person-to- 
person event, not to mention a tremendous 
learning experience in a fun and relaxed at- 
mosphere. 

While you're walking through the 
exhibit hall, keep your eyes open for CoCo 
Cat. Children and adults alike always enjoy 
the furry feline. And our mascot is no 



dummy — always looking for great deals, 
perhaps CoCo Cat has a hot tip for you. 

RAlNBOWfest is the place where 
commercial programmers show their 
newest programs and hardware for the first 
time. Plus, they will be listening to your 
comments and offering "special show 
prices." RAlNBOWfest Chicago, is the 



Show Information 

RAlNBOWfest - Chicago 

Dates -April 26-28. 1991 
Hotel - The Hyatt Regency - 
Woodfield, Schaumburg 
For more info, call loll free 
I (800) 847-0309 
inKY.calt<502)22X-4492 



place to get information on the capabilities 
of the CoCo, and find a terrific selection of 
the latest CoCo products. In exhibit after 
exhibit, there will be demonstrations, 
opportunities to try software and hardware, 
and special RAlNBOWfest prices. 

If you missed the fun at our last RAlN- 
BOWfest. why don't you make plans to 
join us in Chicago? For those members of 
the family who don't share your affinity 



toward the CoCo (for reasons we will never 
understand), there are many other attrac- 
tions in the Chicago area. 

Once again we are pleased to be 
holding RAINBOWfesl at The H\ati 
Regency-Woodfield. Schaumburg. Illinois. 
The show opens Friday evening with a 
session from 7:00 p.m. to 10:00 p.m. It's a 
daytime show Saturday - The CoCo Com- 
munity Breakfast (separate ticket required) 
is at 8:00 a.m. sharp, and the exhibit hall 
opens promptly at 10:00 a.m. and runs 
through 5:00 p.m. On Sunday, the exhibit 
hall opens at 1 1 :00 a.m.. and the show 
closes at 3:00 p.m. 

Tickets for RAlNBOWfest may be 
obtained directly from THE RAINBOW. 
We'll also send you a reservation form so 
you can get a reduced room rate at the 
Hyatt Regency. 

The POSH way to go. You can have 
your travel arrangements and hotel reserva- 
lions handled through RAINBOW- 
affiliated Posh Travel Assistance, Inc., of 
Louisville. For the POSH treatment many 
of our exhibitors enjoy, call POSH al (502) 
893-33 1 1 . All POSH services are available 
at no charge to RAlNBOWfest attendees. 

If your ticket order is one of the first 
five orders received from your state, you 
will receive a Free RAlNBOWfest T- 
Shirt! 



■ . 



1600 I-DL:I(1)-I-(SE-1):IFI(1X1 
THENKD-1 
1610 DR$( I)-"*** NEW ***":DA(D- 
0:DB(I.0)-0:DY(I)-0:OF(I)-1:DB$( 
I )-" I " : GOSUB890 : GOSUB600 : K$-"C" : 
GOTO1510 

1620 '--- SCROLL CR MONEY 
1630 FORY-I(0)TO I (0)+2: IFCR(X .Y 
)<>0 THENPRINT@PX.USINGN8$:CR(X. 
Y): 

1640 PX-PX+8:NEXTY: RETURN 
1650 •--- CR DISPLAY 
1660 IE$-"i":GOSUB830:GOSUB260:G 
OSUB240 

1670 IFCL-0 THENPRINT@163. "enter 
"BBS :"income"BB$"i terns" ::PRINT@2 
29."hit"BB$"n"BB$"to"BB$"begin"; 
:GOTO1730 

1680 PP-64:PX-PP:IX-1 
1690 FORX-K1) TO ( I ( 1 ) + (SE- 1 ) ) : 
PR1NT@PP+0.STR1NG$(32.CHR$(143)) 

1700 IFX<(IN+1) THEN1710 ELSE172 



1710 PX-PP: PRINT@PP+0. IX$( IX) : :P 

X-PX+l:PRINT@PX.USINGA6t;CR$(X): 

:PX-PX+7:GOSUB1630 

1720 I(IX)-X:IX-IX+1:PP-PP+32:NE 

XTX:SOUND200.1 

1730 I-0:GOSUB100 

1740 IFK$-CHR$(09) THEN I F I ( )-NE 

-2 THEN2060 ELSE2010 

1750 IFK$-CHR$(08) THENIFI(0)-1 

THEN2060 ELSE2020 

1760 IFK$-CHR$(10) THENIFI(1)+(S 

E-D-CL THEN2060 ELSEIFCL<-SE TH 

EN2060 ELSE1950 

1770 IFK$-CHR$(21) THENIFI(0)-1 

THEN2060 ELSEI(0)-1:GOTO2030 

1780 IFK$-CHR$(93) THENIFI(0)-NE 

-2 THEN2060 ELSE1 ( )-NE - 2 : GOTO20 

30 

1790 IFK$-CHR$(95) THENIFKD-1 

THEN2060 ELSEI(1)-1:GOTO1680 

1800 IFK$-CHR$(91) THENIFI(1)+(S 

E-D-CL THEN2060 ELSE I FCL<-< SE- 1 

) THEN2060 ELSEK 1 )-CL : GOTO1960 

1810 IFK$-CHR$(94) THENIFKD-1 

THEN2060 ELSE1980 

1820 IFK$-"N" THEN2220 

1830 IFK$-"X" THENI(D-1:GOTO105 



1840 IFK$-"M" THEN3290 

1850 IFCL-0 THEN1930 

1860 IFK$-"S" THENIO-2:GOSUB2480 

:GOSUB200:GOTO1660 

.: IFKS-"0" THENGOSUB2260:GOTO 
1660 
1880 IFK$-"P" THENGOSUB2710:1(D 

iOTO1660 
.890 IFK$-"M" THEN3290 

FORX-1TO SE:IFK$-I$(X) THEN 
I-KX) 

NEXTX: IFI-0 THEN1930 ELSEIF 

1HEN1930 
920 IFCR$( I )<>"" THEN2080 

SOUND1.1:GOTO1730 

'--- SCROLL CR UP/DOWN 

I(D-I(D+(SE-D 

IF1(1)+(SE-D>CL THENKD-C 
SE1):IFI(D<1 THENKD-1 
97B GOTO1680 

KD-KD-(SE-D:IF 1(1 ><1 
i)-l 

GOTO1680 

•--- SCROLL CR SIDEWAYS 
118 K0)-K0)+1:GOTO2030 



2020 

0)-l 

2030 

X-Kl 

2040 

3));: 

630 

2050 

2060 

2070 

2080 



K0)-K0)-1:IFI(0X1 THENK 

GOSUB260:GOSUB240:PP-72:FOR 
) TO (I(1)+(SE-D) 
PRINT@PP.STRING$(23.CHR$(14 
IFX<(IN+D THENPX-PP:GOSUBl 

PP-PP+32:NEXTX 
SOUND200.1:GOTO1730 
■--- CR ITEM UPDATE 
SOUND200.1:GOSUB890:GOSUB64 



2090 GOSUB100 

2100 IFK>0 ANDK<NE+1 THENG0SUB79 

0:GOTO2080 

2110 IFK$-"M" THENGOSUB200:GOTO3 

290 

2120 IFK$-"R" 

660 

2130 IFK$-"D" 

2140 IFK$-"C" 



THENGOSUB200:GOTO1 



THEN740 
THENGOSUB280:IFK>0 

AND K<NE+1 THEN2100 ELSEIFK$-"R 
" THEN2120 ELSEIFK$-"X" THEN2180 

ELSE2080 
2150 IFK$-"N" THEN2220 
2160 IFK$-"S" THENIO-2:GOSUB2480 
:GOSUB200:GOTO1660 
2170 IFK$-"P" THENGOSUB200:GOSUB 
2710:GOTO1660 

2180 IFK$-"X" THENK D-1:GOSUB20 
0:IFIE$-"e" THEN1660 ELSE1050 
2190 IFKJ-"0" THENGOSUB2260:GOTO 
1660 

2200 SOUND1.1:GOTO2090 
2210 '--- NEW CR 

2220 CL-CL+1 : IFCL>IN THENCL-IN:G 
OSUB1000:GOSUB200:GOTO1660 
2230 I-CL:KD-CL-(SE-D:IF1(1)< 
1 THENKD-1 

2240 CR$(I)-"*** NEW ***":CA(D- 
0:CB$(D-"I":CB(I.0)-0:CF(I)-1:C 
Y(D-0:GOSUB890:GOSUB640:K$-"C": 
GOTO2140 

2250 •--- OPEN NEW PERIOD 
2260 CLS:SOUND200.1:PRINT@33.STR 
ING$(30.CHR$(140)):K0)-1:PRINTT 
AB(3)"SHIFT AND OPEN NEW PERIOD" 
:PRINT TAB(DSTRING$(30.CHR$(131 
)):GOSUB2430 

2270 PP-196:Y-0:FORX-1TO3:PRINT@ 
PP.USINGA5$:PD$(X+Y);:PRINT@PP+9 
.USINGA5$;PD$(X+1+Y)::PRINT@PP+1 
8.USINGA5$:PD$(X+2+Y);:PP-PP+64: 
Y-Y+2: NEXTX 

2280 IFCL-0 OR OL-0 THENPRINT@42 
l."MUST ENTER AT LEAST 1 

INCOME AND EXPENSE ITEM": :K$-I 
NKEY$:IFK$-"" THEN2280 ELSERETUR 
N 

2290 PRINT@460."SURE?"::GOSUB60: 
IFK$<>"Y" THENGOSUB200: RETURN 
2300 GOSUB2390:PR1NT@384." OP 

EN PERIOD FOR: " : XX$ : :GOSUB120:G 
OSUB180:PRINT@448." shift 

ing periods": 

2310 FORX-1TO DL:DY(X)-DY(X)+DR( 
X.1):IFDB$(X)-"I" THENDB(X.0)-DB 
(X.0)+DR(X.D ELSEDB(X.0)-DB(X.0 
)-DR(X.l) 

2320 FORY-1TO NE -1 :DR( X. Y)-DR(X. 
Y+D:NEXTY:DR(X.NE)-0:IFDF(X)-1 
THENDR(X.NE)-DA(X):NEXTX:GOT0234 
ELSE2330 

2330 Z1-0:FOR2-NE-(DF(X)-D TO N 
E-1:Z1-Z1+DR(X.Z):NEXTZ:IFZ1>0 T 
HENNEXTX ELSEDR( X. NE)-DA(X) : NEXT 



PRODUCTIVITY 

SOFTWARE BY 

(Danosoft 



BEST WORD PROCESSOR 

Dale Rickert's Feature Packed 



Simply 'Better 



"Significantly Better? Mais Oui!" 

- Rainbow. February. 1990 

Ha* Database Features like holding a 5000 

mail list in memory for quick recall. 

• Run 2 interactive Word processors at once - 
Mail-Merge • Sort Text • Create Tasks • Create 
Indexes • Table of Contents ■ Print-Fill Forms 

• Displays Fonts in Colors • Displays Underlin- 
ing * Print Spooling - Auto Saves ■ Print 'Save 
Blocks of Text • To 480K of Text Storage • 
Numbering - Indenting -Calculator * Headers • 
Footers • Paging ■ Finds ■ Case Reversal • Help 
Screens • Preview "WYSIWYG" • Much More . 

Extensive Manual, with Tutorials. 
Any CoCo3. Only $39.95 US/ $-16.50 CDV 
French Manual $7.00 LS/S8.20 CDN.extra 



BIG BASIC 



Gel 92K from your 1 28K CoCo 3 and 476K on 
5 1 2K for basic programs and variables. 
BIG BASIC creates programming windows 
with up to 58 separate running programs or 
58 parts of one large program or database. 
Allows big programs to run fast. Also disk 
chains unlimited program sections or data. 
7 Demos.Manual. S39.95 US <$46.50CDN. 



MEMORY MASTER 



Scan, Edit, Copy, Printout, any computer or 
disk memory. Fix disks. Restore killed files. 
Enter Mi. Listings. Dual Windows! Run 2 
Programs at once! Disk chain unlimited pro- 
gram sections or data. Demo St Manual. Any 
CoCo 64K or more. 1.1 or 2.1 DECB. Only 
$24.95 US or $28.50 CDN. 



UTILITIES PACKAGE 



6 Background running ML Utilities that 
allow your CoCo to access both sides of 
doublesided drives. Any CoCo 64K or more. 
1.1 or 2.1 DECB. $17.95 US/S20.80 CDN. 



BIG RAMDISK 



Best software to simulate drive* in memory- 
Install, re-install, format and reformat from 
direct mode or from a program. Up to 720K 
and 4 Ramdisks with the Disto 1 meg board! 
To 360K and 2 Ramdisks on a 512K. 
Only $12.95 US or S14.95 CDN. 



MEMORY TUTORIALS 



BABY BASIC for more program space. 
GRAPHICS UTIUTY for many screens in mem. 
BABY BASIC: Any CoCo/GRAPHICS: CoCo3 only 
Onto S8.95 US 'S 10.50 CDN. EACH Disk. 



COCO ARCHIVER 



J32B CoCo3 Disk File Manager & Archive r lor 
K.VOOS. Lists archived files with descriptive 
memos and lists disk directories In 4 columns. 
Copies, lolls & renames. Has Wildcard,; BBS 
shareware feature. RETRIEVES to Disk. Screen 
or COMPUTER. S17.95 US/S20.80 CDN. 



Order bv Phone/Mail 



DANOSOFT 
Box 124. Station "A" 
Missiasauga, Ont. 
Canada 1.5A 2Z7 
(416)897-0121 



Add S2.50 S & H 
Ont. Add 8% tax 
Visa, Mastercard 
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2340 F0RX-1T0 CL:CY(X)-CY(X)+CR( 

X.1):IFCB$(X)-"I" THENCB(X.0)-CB 

(X.0)+CR(X.l) ELSECB(X.0)-CB(X.0 

)-CR(X.l) 

2350 FORY-1TO NE- 1 :CR(X ,Y )-CR( X . 

Y+1):NEXTY:CR(X.NE)-0:IFCF(X)-1 

THENCR(X.NE)-CA(X):NEXTX:GOT0237 






2360 Z1-0:FORZ-(NE-(CF(X)-1)) TO 
NE-1:Z1-Z1+CR(X.Z):NEXTZ:IFZ1>0 
THENNEXTX ELSECR( X .NE)-CA( X ) :NE 
XTX 

2370 FORY-1TO NE- 1 : PO$( Y)-PD$(Y+ 
1):NEXTY 

2380 PD$(NE)-XXS:H$-"Y":GOSUB200 
:RETURN 

2390 '--- GET DATE 
2400 GOSUB180:GOSUB150:PRINT@448 
,;:LINEINPUT" PERIOD MONTH (MM) 
: ";XX$:IFXX$-"" THEN2400 ELSEXM 
$-LEFT$(XX$.2) 

2410 GOSUB180:GOSUB150:PR1NT@448 
. : : LINEINPUT" PERIOD DAY (DD) 
: ":XX$:IFXX$-"" THEN2410 ELSEXD 
$-LEFT$(XX$.2):XX$-XM$+"/"+XD$:R 
ETURN 

2420 '--- INIT DATES DISPLAY 
2430 X$-STRING$(7.BB$):PP-163:Y- 
0:FORX-1TO3:PRINT@PP.X$: :PRINT@P 
P+l . "per" ::PRINT@PP+09.X$:: PRINT 
@PP+10."per": :PRINT@PP+18.X$: :PR 
INT@PP+19."per" : 

2440 POKE(1024+PP+5).(I(0)+X+Y+4 
7):POKE(1024+PP+14).(I(0)+X+Y+1+ 
47 ) : POKE( 1024+PP+23) . ( I (0J+X+Y+2 
+47) 

2450 PRINT@PP+32.CHR$(133)::PRIN 
T@PP+32+6.CHR$(138);:PRINT@PP+32 
+09,CHR$(133);:PRINT@PP+32+15.CH 
R$(138)::PRINT@PP+32+18.CHR$(133 
);:PRINT@PP+32+24.CHR$(138);:PP- 
PP+64:Y-Y+2:NEXTX 
2460 X$-STRING$(7.CHR$(131)):PRI 
NT@PP.X$::PRINT@PP+09.X$::PRINT@ 
PP+18.X$: :RETURN 
2470 '--- I/O ROUTINES 
2480 GOSUB130:SOUND200.1:IFIO-1 
THENIO$-"load" ELSEIO$-"save" 
2490 GOSUB180:PR1NT@454.IO$+" fi 
le - ": PW$ : : I F 1 0-2 THEN2590 
2500 •--- LOAD FILE 
2510 SOUND220 , 1 : FL$-"B"+PW$+" . BU 
D":OPEN"I".#1.FL$:SOUND220.1:!NP 
UT#1.DL.CL 

2520 F0RX-1T0 DL: INPUT#1 .DR$(X) . 
DA(X).DB$(X).DB(X.0).DY(X).DF(X) 
2530 F0RY-1T0 NE: INPUT#1 .DR(X.Y ) 
:NEXTY.X 

2540 F0RX-1T0 CL: INPUT#1 .CRt(X) . 
CA(X).CB$(X).CB(X.0),CY(X).CF(X) 



2550 F0RY-1T0 NE: INPUT#1 .CR(X.Y) 
:NEXTY.X 

2560 F0RX-1T0 NE: INPUT#1 . PD$( X) : 
NEXTX 

2570 CLOSE#1:H$-"Y":GOSUB120:GOS 
UB200: RETURN 
2580 "--- SAVE FILE 
2590 SOUND220.1:OPEN "0".#1.FL$: 
SOUND220.1:WRITE#1.DL.CL 
2600 F0RX-1TO DL:WRITE#1.DR$(X). 
DA(X).DB$(X).DB(X.0).DY(X).DF(X) 
2610 F0RY-1T0 NE:WRITE#1 .DR(X.Y ) 
:NEXTY.X 

2620 F0RX-1T0 CL:WRITE#1 .CRSCX) . 
CA(X),CB$(X).CB(X.0).CY(X).CF(X) 
2630 F0RY-1T0 NE:WRITE#1 .CR(X.Y) 
:NEXTY.X 

2640 F0RX-1T0 NE:WRITE#1 . PD$(X) : 
NEXTX 

2650 CLOSE#1:GOSUB120:RETURN 
2660 '--- CREATE NEW FILE 
2670 CLS:SOUND200.1:FL$-"B"+PW$+ 
".BUD": 

2680 PRINT@33.: : PRINTTABU )STRIN 
G$C30.CHR$(156));:PRINT" EN 
TER PERIOD DATES":PRINTTAB(1)STR 
I NG$( 30 . CHR$( 147 ) ) : : GOSUB2430 
2690 PP-196:F0RX-1T0 NE:PRINT@41 
8. "ENTER DATE FOR PERIOD" :X : :GOS 
UB2400:PD$(X)-XX$:PRINT®PP.PD$(X 
)::PP-PP+9:IFX-3 ORX-6 THENPP-PP 
+37:NEXTX: ELSENEXTX 
2695 GOSUB160:GOTO1660 
2700 '--- PRINT ROUTINE 
2710 GOSUB180:PRINT@449." 
TBLS:aMT pYMTS/DUE PRINT 
bAL rETURN"; :GOSUB100 
2720 IFK$-"A" THENGOSUB2760:GOTO 
2790 

2730 IFK$-"P" THENGOSUB2760:GOTO 
3100 

2740 IFK$-"B" THENGOSUB2760:GOTO 
2890 ELSERETURN 
2750 '--- SETUP PRINTER CODES 
2760 GOSUB130:GOSUB180:PRINT@459 
, "pri nti rig" ; 

2770 POKE150.18:Q0$-CHR$(27)+CHR 
$(23):Q1$-CHR$(27)+CHR$(66)+CHR$ 
(1):Q2$-CHR$(27)+CHR$(66)+CHR$(0 
):Q3$-CHR$(27)+CHR$(31):Q4$-CHR$ 
(27)+CHR$(32):PRINT#-2.Q0$::RETU 




RN 

2780 '--- PRINT TABLE 

2790 GOSUB3030:PRINT#-2.Q1$:Q3$: 

S0$;"FORCASTED BUDGET AMOUNTS FO 

R: ":PW$:LC-LC+1 

2800 PRINT#-2:PRINT#-2.S0$:"INCO 

ME AMOUNTS":LC-LC+2:GOSUB3010 

2810 F0RX-1T0 CL:PRINT#-2.S2$:S2 

$::PRINT#-2.USINGA8$:CR$(X);:PRI 



NT#-2." "::F0RY-1T0 NE:PRINT#-2. 

USINGN7$;CR(X.Y)::PRINT#-2.S2$:: 

NEXTY : PRINT#-2 : LC-LC+1 :GOSUB2990 

: NEXTX 

2820 PRINT#-2.Q1$:Q3$::GOSUB3080 

:PRINT#-2.S2$;S2$:"T0TAL ";:F 

0RX-1T0 NE:PRINT#-2.USINGN7$:CT( 

X);:PRINT#-2.S2$::NEXTX:PRINT#-2 

. Q2$ : Q4$ : LC-LC+1 : GOSUB2990 

2830 PRINT#-2:PRINT#-2.Q1$:Q3$:S 

0$ : "EXPENSE AMOUNTS" : LC-LC+2 : GOS 

UB3010 

2840 F0RX-1T0 DL: PRINT#-2.S2$:S2 

$::PRINT#-2.USINGA8$:DR$(X)::PRI 

NT//-2." "::F0RY-1T0 NE:PRINT#-2. 

USINGN7$:DR(X.Y)::PRINT#-2.S2$;: 

NEXTY: PRI NT#- 2: LC-LC+1 :GOSUB2990 

:NEXTX 

2850 PRINT//-2.O1$:Q3$::GOSUB3080 

:PRINT#-2.S2$;S2$;"T0TAL "::F 

0RX-1T0 NE:PRINT#-2.USINGN7$:DT( 

X)::PRINT#-2.S2$::NEXTX:PRINT#-2 

. Q2$ : Q4$ : LC-LC+1 : GOSUB2990 

2860 PRINT#-2:PRINT#-2.Q1$:Q3$:S 

0$:"BUDGET PERIOD BALANCE" : LC-LC 

+2:GOSUB3010 

2870 PRINT#-2.Q1$:Q3$:S2$:S2$:"B 

ALANCE ";:F0RX-1T0 NE:PRINT#-2. 

USINGN7$:BL(X)::PRINT#-2.S2$::NE 

XTX : PRINT*- 2. 01 J :03 J: LC-LC+1: GOS 

UB2970:GOSUB120:RETURN 

2880 " PRINT BALANCES 

2890 GOSUB3030:PRINT#-2.Q1$:Q3$: 
S0$:"FORCASTED BUDGET BALANCES F 
OR: ":PW$: LC-LC+1 
2900 PRINT#-2: PRINT#- 2. S0$:"INCO 
ME BALANCES": LC-LC+2 :GOSUB3010 
2910 F0RX-1T0 CL:PRINT#-2.S2$:S2 
$::PRINT#-2.USINGA8$:CR$(X);:PRI 
NT#-2.""::F0RY-1T0 NE: IFCBJ(X)-" 
I" THENCB(X.Y)-CB(X.Y-1)+CR(X.Y) 

ELSECB(X.Y)-CB(X.Y-1)-CR(X.Y) 
2920 PRINT#-2.USINGN9$:CB(X.Y):: 
PRI NT#-2. "" :: NEXTY: PRINT*- 2 :LC-L 
C+1:GOSUB2990:NEXTX 
2930 PRINT#-2:PRINT#-2.Q1$:Q3$;S 
0$: "EXPENSE BALANCES" : 02$: 04$ : LC 
-LC+2:GOSUB3010 

2940 F0RX-1T0 DL:PRINT#-2.S2$ :S2 
$;:PRINT#-2.USINGA8$:DR$(X)::PRI 
NT#-2.""::F0R Y-1T0 NE:!FDB$(X)- 
"I" THENDB(X.Y)-DB(X.Y-1)+DR(X.Y 
) ELSEDB(X.Y)-DB(X.Y-1)-DR(X.Y) 
2950 PRINT#-2.USINGN9$:DB(X.Y):: 
PRINT#- 2. ""I: NEXTY: PRI NT#-2:LC-L 
C+1:GOSUB2990: NEXTX :GOSUB2970: GO 
SUB120:RETURN 

2960 '--- END OF PAGE LINES 
2970 FORW-LC TO 65: PRINT#-2:NEXT 
W:LC-0:RETURN 
2980 '--• PAGE 

2990 IFLC<60 THENRETURN ELSEGOSU 
B2970:FORW-1TO 5:PRINT#-2:NEXTW: 
LC-5:GOSUB3010:RETURN 
3000 '--- PRINT DATE LINE 
3010 PRINT#-2.Q1$:Q3$::GOSUB3080 
:PRINT#-2.S2$:S2$:"PERI0D> ": 
:F0RW-1T0 NE:PRINT#-2.PD$(U):S2$ 
:S2$::NEXTW:PRINT#-2:GOSUB3080:P 
R I NT#- 2. Q2$:Q4$;: LC-LC+1: RETURN 
3020 ■--- PRINT HEADING 
3030 F0RX-1T05: PRINT*- 2: NEXTX: PR 
INT#-2.Q1$:Q3$:S0$:"HOME BUDGET 
ANALYST" ; : PRI NT#-2 .Q2$ :Q4$ : LC-6: 
RETURN 

3040 •--- PRINT TITLE LINE 
3050 PRINT#-2.Q1$:Q3$;:GOSUB3080 
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: PRINT#-2.S0*:S5$ : " CURR 

ENT YTD CURRENT REMAIN 

ING" 

3060 PRINT#-2.S5S;S0S:"DESC 

AMOUNT BALANCE BALANCE B 
ALANCE":GOSUB3080:PRINT#-2.Q2S:Q 
4$ ;:LC-LC+2: RETURN 
3070 •--- PRINT DASH LINE 
3080 PRINT#-2.S2S;S2S; STRINGS! 8. 
"-••) : :FORW-lTO NE:PRINT#-2.STRIN 
GS(9."-");:NEXTW:PRINT#-2:LC-LC+ 
1:RETURN 

3090 ■--- PRINT SINGLE PERIOD RO 
UTINE 

3100 GOSUB3030:PRINT#-2.Q1S:Q3S: 
S0$: "PAYMENTS FOR: " : PW$ ;S2$ :S5$ 
;" BUDGET PERIOD: " : PDS( 1 ) : LC-LC 
-1 

3110 PRINT#-2:PRINT#-2.S0S:"INCO 
ME ITEMS": LC-LC+2:GOSUB3050: FORX 
-1TO CL: IFCRCX.l )-0 THEN3170 
3120 PRINT#-2.S5S:S0S::PRINT//-2. 
USINGA8S;CRS(X);:PRINT#-2." ";:P 
R1NT#-2.USINGN7$;CR(X.1);:PRINT# 
-2.52$; 

3130 CY-CY(X)+CR(X.1):PR1NT#-2.U 
SINGN9$;CY::PRINT#-2.S2$::IFCB$( 
X)-"I" THEN3150 

3140 CB(X.1)-CB(X.0)-CR(X.1):PRI 
NT//-2.S5S;S0S;:PRINT#-2.USINGN9S 
:CB(X.l); :GOTO3160 
3150 CB(X.1)-CB(X.0)+CR(X.1):PRI 
NT#-2.USINGN9$:CB(X.l); 
3160 PRINT#-2.S5$:S0S;:PRINT#-2: 
LC-LC+1:GOSUB2990 
3170 NEXTX 

3180 PRINT#-2.Q1$:Q3S;:GOSUB3080 
:PRINT#-2.S5S:S0S;"TOTAL ";:P 
RINT#-2.USINGN7$:CT(l)::PRINT#-2 
. S2$ : : PRI NT#-2 ,Q2$ :Q4$ : LC-LC+1 :G 
OSUB2990 

3190 PRINT#-2:PRINT#-2.Q1S;Q3S;S 
0$ : "EXPENSE I TEMS" : LC-LC+2 : GOSUB 
3050 

3200 FORX-1TO DL: IFDR(X . 1 )-0 THE 
N3260 

3210 PRINT#-2.S5$:S0$;:PRINT#-2. 

iGA8S;DRS(X);:PRINT#-2." ";:P 

R1NT#-2.USINGN7S;DR(X.1);:PRINT# 

2.S2S; 
3220 DY-DY(X)+DR(X.l) :PRINT#-2.U 
:H9S;DY;:PRINT#-2.S2S;:IFDB$( 
i .-"I" THEN3240 

3230 DB(X.1)-DB(X.0)-DR(X.1):PRI 
»T#-2.S0S;:PRINT#-2.USINGN9S;DB( 
1)::GOTO3250 



3240 DB(X.1)-DB(X.0)+DR(X.1):PRI 
NT#-2.USINGN9$:DB(X.l): 
3250 PRINT#-2.S5$:S0$::PRINT#-2: 
LC-LC+1 :GOSUB2990 
3260 NEXTX 

3270 PRINT#-2.Q1S;Q3S;:GOSUB3080 
: PRINT*- 2. S5$:S0$; "TOTAL "::P 
RlNT#-2.USINGN7S;DT(l);:PRINT#-2 
BUDGET BALANCE " : : PRINT#-2 
.USINGN7$:BL(1)::PRINT#-2.S2$::L 




C-LC+1:GOSUB2990:GOSUB2970: GOSUB 

120:RETURN 

3280 '--- MENU 

3290 CLS : SOUND200 . 1 : PRINTS64 . "" : 

:GOSUB3560 



SAVE FILE 
OPEN NEW PER 
INCOME DSPLY 
qUIT": 
•CURRENT FILE - " 



3300 PRINT@256.' 

PRINT 

rEAD NEW FILE 

eXPENSE DSPLY 
3310 PRINT@419/ 
:PW$: 

3320 GOSUB3650:IFK$-"" THEN3320 
3330 IFK$-"S" THENIO-2:GOSUB2480 
:GOSUB200:GOTO3290 
3340 IFK$-"P" THENGOSUB2710:I(1) 
-1:GOTO3290 

3350 IFK$-"0" THENGOSUB2260:GOTO 
3290 

3360 IFK$-"R" THENRUN 
3370 IFKS-"I" THENI(l)-l:GOT0166 


3380 IFK$-"E" THENI(1)-1:GOTO105 


3390 IFK$-"X" THENGOSUB130:SAVE" 
BUD . BAS" : GOSUB 120 : GOTO3320 
3400 IFKS-"Q" THENGOSUB130:CLS:P 
RINT"BUDGET PROGRAM TERMINATED": 
END 

3410 GOTO3320 
3420 •--- PROGRAM INIT 



3430 CLEAR1100:GOSUB120:EN-45:IN 
-15:NE-9:SE-9 

3440 DIMDRS(EN).DA(EN).DBS(EN),D 
Y(EN).DF(EN) 

3450 DIMCRS(IN).CA(IN).CBS(IN).C 
YUN).CF(IN) 

3460 OIMDR(EN.NE).DB(EN.NE):DIMC 
R(IN.NE).CBUN.NE) 
3470 DIMPD$(NE).BL(NE).OT(NE).CT 
(NE) 

3480 DIMIS(SE).I(SE).IXS(SE) 
3490 I(0)-l:DL-0:CL-0 
3500 FORX-1TO SE:READIX$(X).I$(X 
).I(X):NEXTX 

3510 DATA a.A.l.b.B.2.c.C.3.d.D. 
4.e.E.5.f . F.6.g.G.7 ,h.H,8. i . I .9 
3520 NlS-"#" : N7$-"MM.#" : N8S-" 
####.##- ":N9 $-"###«.##-" 
3530 A5$-"% %":A6$-"% %":A 

&%-"% %" 

3540 BBS-CHRS(128):S2$-" ":S5S- 
":S0$-" ":G0SUB35 

60:GOTO3590 

3550 •--- TITLE SCREEN 
3560 SOUND200.1:CLS:PRINT@100."h 
ome" : BBS : "budget" :BB$: "analyst"; 
BBS ; BBS :POKE( 1024+121). 52: POKE (1 
024+122 ). 46 :POKE( 1024+123). 48: PR 
INT 

3570 PRINT" BY: GLEN DUFUR":P 

RINT" COPYRIGHT (C) 1989":RET 

URN 

3580 '--- PASSWORD 
3590 PRINT:PRINTTAB(4):LINEINPUT 
"PASSWORD : " ; PWS : PWS-LEFTS ( PWS . 5 
) 

3600 PRINT@324."10AD EXISTING BU 
DGET":PRINT@388. "CREATE NEW BUDG 
ET":PRINT@456. "SELECT OPTION" 
3610 GOSUB3650:IFK$-"" THEN3610 
3620 IFK$-"C" THEN2670 
3630 IFK$-"L" THENIO-1:GOSUB2480 
:GOTO1660 

3640 SOUND1.5:GOTO3610 
3650 IFXXS-CHRSU45) THENXXS-CHR 
S(146):XYS-CHRS(148):XZS-CHRS(15 
0): ELSEXX$-CHRS(145):XYS-CHRS(1 
52):XZ$-CHRS(153) 
3660 PRINT@66.CHRS(138);:PRINTST 
RINGS(26.XXS);CHRS(133);:PRINT@1 
30.CHRSC138):STRINGS(26.XYS):CHR 
$(133) : 

3670 KS-INKEYS:PRINT@99.BBS::PRI 
NT0124. BBS;: RETURN 
3680 '---PCLEAR ROUTINE 
3690 PCLEAR1:GOTO3430 
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• EDUCHTIOn 

^13TH SBIDES : 4 exciting pro- 
grams cover addition, sub- 
traction, multiplication. & 
-ion. Fantastic graphics! 
(Sept '88 review) IDST $19.95 
tETBOBBD COmmaDDEB - Space 
:iB! typing teacher. 8 tun 
way to learn touch typing. 
J-pt '88 review) $24.95 
JACK B8BB1T STOBY WBITEB . 
Jradea 2-8. Write stories. 
ak up new ideas. Outline, 
Save. Load, and Print. 7000 
word spelling helper. (Dec '89 
--view) - -Excellent!" 124.95 
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• GRAPHICS 



LEOBBBDOS PB1DT BOX ' Will 
actually write HSCBEED 2 
graphics programs! fill you 
do is use a joystick! (See the 
Dlar '89 review) ODLY 186.95 
SOPEB BBBPH1CS-16: B budget 
graphics editor with lots of 
options! (lune '88 review) $16 
COIEICS" Just for creating 
comic strips. Point and click 
icon interface. Special "Clip 
Brf* option. Lots of fun! (See 
Feb '90 review) OBLY $21.45 



• Til * COCO-NUT." BUMPER STICKER FREE WITH EVERV ORDER. 



THE TBEBSUHE CHEST 

24 programs! Useful utilities, 
graphics, sound effects, PIL 
letter writer, fortune telling 
game, database, check acc't 
balancer, label printer, order 
form printer, code program, 
and more! The C0II1PLETE 
TBEBSDBE CHEST of programs 
is only $8! (We'll even pay 
the shipping and handling!) 

118 COBLIES BVE. ; P0U6HKEEPS1E, BY 13601 

Information: (9H| 485-8150 

PLEASE ADD II 50 S/M (EXCEPT ON "TREASURE CHEST*) - NY RESIDENTS ADD TAX 



•niHnHGEmEnT 

EZWB1TEB- Easy way to print 
professional quality letters. 
Do single or multiple copies 
from mailing lists. Tlo fuss! 
(July 'B8 review) STILL $19.95 
DBTB F0BID 111' Custom de- 
sign CoCo 3 databases. Dp to 
17 fields. Very user-friendly. 
(Ian '90 review) lust 119.95 
C.H.B. : Computer Buto Becord. 
Keep track of vehicle main- 
tenance, fuel costs. etc. 
(Oct'89 review) B lot for $9.95 



Bug 2 from a group - get the 3rd FREE! 
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tis Still the C Zen 



by Greg Law 

Technical Editor 



Previous installments in this se- 
ries have shown how to open 
existing files, create new files 
and check for the existence of 
files. The actual task of reading 
and writing using the low-level functions is 
accomplished with readO. readlnO, 
writeO and writelnO. For assembly 
language buffs, these are direct equivalents 
of the ISRead, ISReadLn. ISWrite and 
ISWritLn system calls. That is. the read( ) 
function passes its parameters directly to 
the I$Read system call. The primary pur- 
pose of read( ) and writet ) is to read and 
write a stream of binary data, although both 
functions work with streams of ASCII data 
just as well. On the other hand, readl n( ) 
and writelnO are primarily intended to 
read and write ASCII data, as well as use the 
line-editing capabilities built into the se- 
quential character file (SCF) manager. 

Let's carry this definition a bit further. 
Assume you have a program that reads 12 
characters from the keyboard, and you type 
the following as input: 

Now\bt not\bw\n 

\b is the backspace character and \n is the 
carriage return character. If you use the 
read( ) function, the actual data stored in 
the buffer is 

Now\bt not\bw\n 

As you can see. the backspace characters 
are stored in the buffer exactly as you typed 



In addition to being OS-9 Online SIGop, 
Greg Law enjoys programming on all types 
of computers and has worked on systems 
ranging from the CoCo to the Burroughs 
B6700 super mainframe. He lives in Louis- 
ville. Kentuckv. 



[hem. But if you use the readl n( ) function, 
the data stored in the buffer is 

Not now\n 

In this case, the line-editing capabilities 
built into SCF take over and interpret the 
backspace characters. Another difference 
between these two functions is that read( ) 
reads the speci tied number of characters 
from the input device. In other words, if 
you tell read( ) to read 12 characters, it 
reads exactly 12 characters unless it en- 
counters an end-of-line character, which is 
usually a carriage return or the ENTER key. 
Also, readl n( ) reads the specified number 
of characters and stops reading when it 
encounters an end-of-line character. The 
difference is that the lastcharactertyped for 
readl n( ) must be an end-of-line character. 
Forexample.ifyoutell readlnO to readi2 
characters, it accepts the first 1 1 characters 
typed from the keyboard. If you press any 
key other than ENTER for the 1 2th character, 
the speaker beeps and the character is dis- 
carded (or thrown into the bit bucket). 

♦♦♦♦ 

Experiment with the sample program in 
Listing 1 to get used to the differences 
between readO and readlnO. First, a 
character array is declared that can hold up 
to 25 characters. A loop is used to initialize 
the contents of the array to spaces. This is 
done so as to know exactly what is stored in 
the array to check the results. Otherwise, 
the character array would contain miscella- 
neous garbage and the results of the test 
would be meaningless. In the next step, 
readO is called to read 12 characters from 
the keyboard into the array. The number of 
characters actually read is assigned to the 



variable count. This is where the fun be 
gins. The pr1 ntf ( ) function is used to tel 
the number of characters read from thi 
keyboard. The hexadecimal values for thi 
characters in the array are then printed 01 
the screen. This process is repeated for thi 
readl n( ) function so you can compare thi 
results. Run the program and type Now\b 
not\bw twice. The following is printed 01 
the screen: 

Read 12 characters 

4E 6F 77 08 74 20 6E 6F 74 08 77 0D 20.. 

Read 8 characters 

4E 6F 74 20 6E 6F 77 0D 20... 

Remember I am using \b to represent th 
backspace character, which is the left at 
row on the keyboard. As you can see, th 
read( ) function reads the input typed o 
the keyboard exactly as you typed it and th 
last character read is the carriage return. O 
the other hand, the readl n( ) function erase 
the previous character typed each tim 
backspace was pressed. There is anothe 
subtle difference you should have notice 
on the screen. During the readO call eac 
time backspace was pressed the curst 
moved to the left one position, but th 
character at that position remained on th 
screen. During the readl n( ) call, each tim 
backspace was pressed the cursor moved t 
the left one position and the character i 
that position was erased. 

Run the program once more, but th 
time type Not now without the backspace 
and press ENTER. This time both read( 
and readl n( ) act exactly the same. Forth 
final comparison run the program and typ 
Now 1s the time once to test the read ( 
function. For best results wait a second < 
two before pressing each key and stc 
typing when pr1 ntf O prints the results c 
the screen. read( ) stopped reading the inpi 
and the results were printed immediatel 
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after the t in lime was pressed. Type Now i s 
1 1 me again to test the readl n ( ) func- 
tion. Did you hear the speaker beep when 
you pressed t in time? If you complete the 
sentence by pressing i. m and e, the speaker 
beeps each time you press a key. Complete 
the input by pressing ENTER. As mentioned 
above, the last character typed in response 
to read 1 n ( ) must be a carriage return, any 
other characters typed beyond this point 
ire ignored. 

♦♦♦♦ 

So far we have examined the effects of 
readO and readl n() only on sequential 
character devices, such as the keyboard 
and the monitor. The end result is that SCF 
has given us the ability to use its line 
editing functions to interpret backspaces 
and such. But what are the effects of using 
readO and readl n() from a disk file? 



Type the following to build a test file: 

build make_test 

? display 4e 6f 77 08 74 20 

? display 6e 6f 74 08 77 Od 

? display 4e 6f 77 08 74 20 

? display 6e 6f 74 08 77 Od 
? press ENTER 

When you finish, type make_test 
Hest.dat to create a data file we can use. 
This creates the same data (NovAbt 
nof\bw\n) we used in our first test. Finally, 
type read_test <test.dat and examine 
the results printed on the screen. Both 
read( ) and readl n< ) read the data exactly 
as it was stored in the file and the back- 
spaces were not interpreted. For another 
test, type the following: 

build test2.dat 
? Now 1s the time 
? Now is the time 
? press ENTER 



Type read_test <test2 . dat and press EN- 
TER. This time readO reads exactly 12 
characters from the file and readl n( ) reads 
the remainder of the sentence up to the 
carriage return. If you haven't already 
guessed, the second sentence hasn't been 
read yet. 

ThewriteO andwritelnO functions 
work in the same manner as the read ( ) and 
readln( ) functions. That is. the data given 
towrite( ) is written on the device with no 
conversions whatsoever. On the other hand, 
the data given to writelnO is passed 
through the SCF editing functions. Also be 
aware that wri tel n( ) writes the data in the 
buffer up to the specified number of bytes, 
but writelnO stops short if a carriage 
return is encountered. 

As an exercise, create a couple of short 
programs and experiment with these four 
functions. What other information can you 
discover about the effects of these func- 
tions on SCF and RBF devices? 
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The Listing: read_test.c 



mair 
i 


() 




char 
int 

int 


array[25] 

count: 

1: 



ford - 0; 1 < 25: i++) 
array[i] - 32: 

count - read(0. array, 12); 
pr1ntf("\nRead %d characters\n". count) 

ford - 0: i < 25: 1++) 

printf("%02X ". dnt) array[i]): 

printf("\n"): 

ford - 0; i < 25: i++) 
arrayfi] - 32: 

count - readln(0. array. 12): 
pMntfC'Read %d characters\n". count): 

ford - 0: i < 25: i++) 

printf("S02X ". dnt) array[1]); 

printf("\n"); 



( SUPER SOFTWARE AT AFFORDABLE PRICES!! 

CC3FLAGS CONOUER THE WORLD REG. PRICE »1 NOW $10.00 

VOCAB . HONE YOUR SCRABBLE SKILLS.- REC. PRICE Ml NOW $1 0.00 

MASTERDIR ...QI5KETTE DIRECTORY DATABASE REO. PRICE S1B NOW S10.00 

PROGRAMS FOR FRIENDS includes wacko Canada Europe and 

smartythepig INTRODUCTORY PRICE S10.00 

NIB COMPRESSOR fantastic graphics compressor .. used inproduction of 

COCO GALLERY ON DISK — why so cheap? because i want you 

to have itiii S2.50 

THE RAINBOW INDEXES brand new databases of articles, product 

REVIEWS, AND TAPE/DISK OFFERINGS FROM THE RAINBOW. STARTS WITH RAINBOWS ORIGINAL 
ISSUE.. .ENDS WITH JUNE 1990 THESE DATABASES WILL BE UPDATED ANNUALLY ...100% 
ML ..OVER 7200 ENTRIES COMES WITH BOTH COCO l<2 AND COCO 3 VERSION ..THUMB THRU 
DATABASES WITH A SINGLE KEY COCO 3 DISPLAYS 15 ENTRIES ON SCREEN (COCO "2 SHOWS 2 
AT A TIME) ...EXCELLENT FOR FINDING INFORMATION FROM YOUR COLLECTION... THESE ARE 
USEFUL. MUST-HAVE PROGRAMS AT A 

GIVEAWAY INTRODUCTORY PRICE ONLY!! $10.00 



OH 



SI 



TTa 



GALLERY MAKER.brand new here s the program to use to make your 

OWN PERSONALISED COCO GALLERY ON DISK. AU. THE UTILITIES I USED SEPARATELY TO 
CREATE RAINBOW'S COCO GALLERY ON DISK HAVE BEEN ORGANIZED INTO ONE SIMPLE TO 
USE PROGRAM FEATURES INCLUDE PERSONALIZED TITLE SCREEN MAKER, BOX UTILITY, 
NIB COMPRESSION (THE NIB COMPRESSOR IS INCLUOEO WITH GALLERY MAKER), PICTURE 
HISTORY ROUTINE, PALETTE SAVER, RGB TO CMP OPTION, AND PERSONALIZED MENU WITH 
YOUR NAME ON IT... 
REQUIRES COCO III RECOMMEND RGB MONITOR $10.00 



SPECIAL....ORDER ANY 3 PROGRAMS FOR $25.00 



SEND CASH, CHECK OR MONEY ORDER FOR FAST RETURN 
PLEASE INCLUDE S2.00 FOR SHIPPING/HANDUNG 



RICK'S 



COMPUTER 
ENTERPRISE liberty, ky. 42539 



THE RADXltOW IS A RFGOTtHED TRADEMARK OF FALSOFT. INC. 
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Print Utility 



16K Extended 



Neat Labels 

by Keiran Kenny 

As a tape user. I do not like database 
programs that require me to load a work- 
ing program and then load a file that has 
been saved separately (and probably on 
another tape). I developed a program to 
retain a limited list of addresses in data 
lines as in the examples in lines looo to 
I (HO and print any or al I of them on 4!^-by- 
Wi fanfold labels. It can also be used to 
type one-time addresses that do not need 
to be retained and print them on labels. 

To use the program, type a few data 
lines as in the examples. You can have 
any number from one to seven lines in 
each address. The length of a line should 
not exceed 31 characters. Line 1020 con- 
tains only one line. Each data line must 
end with XX and the last data line must 
read DATA ZZ as in Line 2(HX). 

To begin the program, select Option 1 
on the menu screen. This brings the first 
address to the screen and a prompt to 
press the space bar to print. Each address 
is held on the screen for a count of 1 200 by 
the loop in Line 230. If you don't press the 
space bar within this time, the next ad- 
dress is displayed. The value of DL is 
established in Line 10 and can be changed 
to vary the duration of the display. 

To print an address, have the top of 
your first label flush with the top of the 
ribbon, the left edge of the label at Posi- 
tion 0. and press the space bar. The label 
is printed with the text centered. The 




printer then advances to the top of the 
next label. 

Line 290 establishes how many blank 
lines (TM) are to be printed at the top of the 
label. The loop in lines 300 to 330 sets the 
length of the longest line in your address. 
This line is centered under TAB(20). TB. 
as in Line 20. The loop in Line 380 prints 
the number of blank lines needed at the 
bottom of the label to bring up the next 
label. 

Once the addresses in the data lines 
have been printed, you are returned to the 
menu. Press 2 to type and print a one-time 
address. The entry P0KE282 . in Line 110 
puts the CoCo in upper/lowercase mode 
and P0KE282 . 255 in lines 100 and 120 puts 
it in an all capitals mode. You can type up 
to seven lines, but if you have less than 
seven, type the last line and press SHIFT- 
up arrow. A little left-arrow appears on 
the screen and the address is printed as 
before. 

The program is not fast, but I have 
found it simple and effective enough for 
a limited purpose. If you do not have 
Extended Color BASIC use INPUT instead 
of L I N E I N PUT in Line 260. but avoid using 
the comma and the colon when typing 
one-time addresses. They can be used in 
a data line if the text is in quotes. 

Line 30 sets the transmission rate at 
2400 baud. This can be changed for com- 
patibility with your printer. The controls 
for NLQ bold in Line 150 are for a DMP- 
130A printer. This line can be omitted or 
changed as needed for your printer. 

The Listing: LABELS 

'NEAT LABELS 

1 -WRITTEN BY KEIRAN KENNY 

2 'COPYRIGHT (C) JANUARY 1991 

3 "BY FALS0FT. INC. 
10 CLS:DL-1200 
20 TB-20 -TAB(20) 
30 POKE150.18 '2400 baud. 
40 PRINT@64."D0 YOU WANT T0:":PR 
INT 

50 PRINTTAB(2)"1. PRINT ADDRESSE 
S IN DATA?":PRINT 
60 PRINTTAB(2)"2. TYPE AND PRINT 

ONE -OFF". TAB( 5) "ADDRESSES?" :PRI 



70 PRINTTAB(2)"3. END PROGRAM?": 
PRINT 

80 PRINTTAB(8)"PRESS 1. 2 OR 3." 
90 K$-INKEY$:IFKS-""THEN90 
100 IFK$-"1"THENP0KE282.255:G0T0 
140 

110 IFK$-"2"THENPOKE282.0:GOTO14 


120 IFK$-"3"THENP0KE282.255:CLS: 
END 

130 GOTO90 

140 PRINT:PRINT"PRINTER READY? - 
PRESS ANY KEY.":EXEC44539 
150 PRINT#-2.CHRS(27);CHR$C18);C 
HR$(27);CHR$(31): "NLQ Bold 
160 IFKJ-"2"THENCLS:PRINT@32."TY 
PE ADDRESS :":PRINT@64:GOTO250 
170 N-N+1:READN$(N):IFNJ(N)-"ZZ" 
THENCLS: RESTORE :N-0: PRINT-DATA E 
ND.":GOTO40ELSEIFNS(N)-"XX"THENN 
-N-1:CLS:GOTO180ELSE170 
180 PRINT@128 
190 F0RT-1T0N 
200 PRINTNS(T) 
210 NEXT 

220 PRINT:PRINTTAB(3)"PRESS SPAC 
EBAR TO PRINT." 

230 F0RD-1T0DL:NEXT:IFINKEY$-CHR 
$(32)THEN290ELSEN-0:CLS:GOTO170 
240 PRINT:PRINTTAB(3)"PRINT? Y/N 

250 F0RN-1T07 

260 PRINT"LINE"N:CHR$(8)":"::LIN 
EINPUTN$(N) 

270 I FN-7THEN290ELSEI FN J( N )-CHR$ 
(95)THENN-N-1:GOTO290 
280 NEXT 

290 TM-INT((9-N)/2) 
300 F0RT-1T0N 

310 IFLEN(N$(T))>Z THEN320ELSE33 


320 Z-LEN(N$(T)) 
330 NEXT 

340 F0RD-1T0TM:PRINT#-2:NEXT 
350 F0RT-1T0N 

360 PRINT*-2.TAB(TB-(Z/2))N$(T) 
370 NEXT 

380 F0R0-1T09-N-TM: PRINT*- 2: NEXT 
390 Z-0:N-0:IFK$-"l"THENi70ELSE4 


1000 DATA The Tandy Corporation, 
300 One Tandy Center. Fort Worth 
TX.U.S.A. 76102. XX 
1010 DATA The Submissions Editor 
.RAINBOW. P.O. Box 385. Prospect K 
Y.U.S.A. 40059. XX 
1020 DATA MR. William P. Nutt.XX 
1030 DATA Keiran Kenny. 2/45 Crem 
orne Road.Cremorne NSW. Australia 
2090. XX 
2000 DATA 11 /rt\ 
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Would You Buy a Car You Couldn't Get Fuel For? 

Why Buy a Computer You Can't Get 

Software For? 

Many of you are now considering an alternative to the Color Computer to run OS/9. Are you really going 
to invest in an untried alternative with very limited software? Why not buy a computer that will run a UNIX 
Compatible (OS/9 like) operating system AND MS-DOS. According to published articles, this combination 
of industry-standard operating systems would run more than 90% of ALL of the software that has EVER 
been written. Compare the software bases represented below. We call these systems the OWL ATom.™ 
Can your alternative to the CoCo be fixed locally? On-site service is available most areas on the ATom. 




> 





OWL ATom™ ET or SX 



These highly adaptable computers we 

1 1 he OWL ATom™ scries. They are nol 

newcomers to the computer world, but are 

ibe current versions of computers which 

we have been building for more than 6 

rs. All systems can be configured with 

iour choice of hard drive, graphics 

nitor, and 6 different processors. The 

ems described here are typical of the 

versions of our line which offer 2 

ry-standard operating systems. 



For general features of our OWL 
ATom including expansion capabilities, 
check out the table below. Comparisons 
arc also given to several Tandy™ com- 
puters. The resolution of the optional 
VGA is also given. 

Typical system components: 

Processor: 80286-12 or 80386SX-16 

Floppy drive: 1.2 or 1.44 Meg 

Memory: 1MB 

Hard Drive: 40 MB, 28 ms. 

Monitor: TTL Monochrome 
(720X350) 

MS-DOS Software: 

MS-DOS (with all utilities) 

GWBAS1C 

Integrated Software including: 

Desktop Organi/er with tracker 

Outliner 

Word Processor 



Spelling Checker 

Spreadsheet 

Data Base 

Graphics program 

Communications 

UNIX Compatible Software: 

Coherent"' (A UNIX Compatible 

Operating System) 
C Compilier 
Full Screen Editor 
Line Editor 
Text Formattor 
AWK Language and Yacc 
Standard UNIX utilities 
Pocumentation; 
Over 1500 pages and VHS Tape 
One of the b est features is the price: 



<C%h95/$l49T^> 



KEATI RES 




2500 \l ■ 


1 000 II 72' 


Processor (Speed) 


S(l2Xfi(12) 


80286(10) 


80286(8) 


Total Slots 


s 


3 


4 


16 Bil Slots 


n 


3 





Standard Memory 


I024K 


I024K 


<.40K 


Max. on Board RAM 


409f.K 


I024K 


768K 


Graphics Oulpul 


vr.A 


VGA 


CGA 


Max. Resolution 


t (124X768 


640X480 


640X200 


Drive Slots 


5 


3 


3 


Hard Drive Interface 


YVs(lfiRif) 


Yes(l6Bil) 


Yes(8Bil) 


Floppy Drive 


1.2 or 1.44 Meg 


1.44 Meg 


720K 


PoHer Supply (Walls) 


200 


70 


67 


Warranty ( Paris and Labor) 


1 Y«.r 


1 Year 


1 Year 



• Trademarks as follows: Model numbers -Tandy Corporalion. MS-DOS- Microsoft. Inc.. 
I -MKroWare. Inc.. UNIX- AT&T. Inc. 



First year on-site service $45 (Most areas) 
VGA Color (800X600X256 colors) $400. 
Call 215-837-1917 for other options 

OWL- 
WARE 

P.O. Box 116 
Mertztown, PA 

19539 
Call to Order: 
(800)245-6228 
PA and Support: 
. (215)837-1917 





Proven 



On the Razor's Edge of 



"he New Frontier: 



The Most Advanced Color Computer 
Drive Systems Ever Offered! 



Fast No-Halt SCSI Floppies Using Optiona 
Proven Performance for Demanding Home or 



This is ihc mosl advanced, fully assem- 
belcd CoCo hard drive system offered. 
Using the optional OMTI 5200 SCSI 
controller with our Hard Drive Inter- 
face, our new system will support 
no-halt floppy drives. You need not wail 
while typing or worry about clock time 
losses. Why be limited to 3 floppy 
drives? A complete system could now 
consist of 1-3 standard CoCo floppy 
drives. 1-2 (or more) hard drives, and 
1-3 no-hall floppies using standard (not 
just CoCo) OS/9 format. You can use 



single or double-sided 40 or SO track 
drives with the SCSI no-hall controller. 

There are several new features with this 
improved interface. These include: 

• Full SASI/SCSI compatible (this al- 
lows many add-uns to the versatile 
SCSI buss) 

• No-Halt Floppies with optional SCSI 
controller allows full type-ahead 
during access 

• Low factory-direct prices 



20 or 30 Meg. 40 Meg. 80 Meg. 

System Prices: (Includes Hard Drive, case, & fan, SCSI Controller*, 
LR/OWL Interface, Software. Fully assembled and tested.) 

$495. $535. $875. 

Super System Prices: (LR/OWL System as above but OMTI 5200 

SCSI Controller AND 3.5" or 5.5" HD 80 Track Floppy in same case) 

$595. $645. $1039.(2 cases) 

•SCSI controller is OMTI 5100. Add $75 for OMTI 5200 with FDC. 

Introducing the Quick-Link" Interface 

Provides both a 64K Printer Buffer and Serial and Parallel Interfaces. 
Serial to Parallel Printer Interface (64K Buffer) $65. 

Converts serial computer output to parallel printer and also pro* ides a 64K Lull, i in front of Ihc 
printer. Serial side Female DB-25 and Parallel side is Centronics. Includes Centronics to Centronics 
cable and power AC -adapter. If you need an adapter from the CoCo 4-pin serial to DB-25 add $9. 
From 300-48,400 Baud. 



Parallel to Serial Interface (64K Buffer) 



$45. 



Same as above except it converts Centronics parallel computer output to DFt-25 Female serial. Plug 
into an IBM printer cable to provide output to a serial plotter. 



Parallel to Parallel (64K Buffer) 

This is parallel printer buffer with no conversion. 



$39. 



I SCSI Controller 
Business Users 

• Fast Delivery from factory stock 

• Optional Real Time Clock with built 
in battery (3-10 year lifetime) 

• With the Clock you have 240 Bytes of 
battery backed up RAM for password 
protection or data storage! 

• Same super stable LRTech quality 



Interface Price only: $85. 
Real Time Clock-RAM: $25. 



Drive System Parts 

Hard Drives 
20/30 Meg ST/PTI $229. 

40 Meg PTI 265. 

80 Meg ST4096 590. 

SCSI Controllers 
OMTI 5100 HD Only $79. 

OMTI 5200 HD/FD 169. 

OMTI 5400 HD/FD/Tape 199. 

(Note: We have no drivers for tape yd ) 

Cases and Cables 
Case, 45 Watt PS, Fan $1 05. 

Cable set (3 pieces) 25. 

Drives have a 1-year limited warranty. 
Other parts are 90-day warranty. 
Please Note - At these prices, only very 
limited support can be given. 



Technology 



the Color Computer Frontier 





Floppy Drive Systems 

The Highest Quality for Years of Service 
Drive Systems (Half Height, Double Sided, 



Direct Drives) 



$189. 



Drive systems complete with drive, controller, legal DOS, cable, case, 
power supply, and manual 

Drive 1 Systems (Half Height, Double Sided, 
Direct Drives) s> I I O- 

New 3.5", 720K Drives for OS-9 with case 

& Power Supply $ I 4". 

Drive 1 Systems have drive, case, power supply. (You may require op- 
tional cable and/or DOS chip to use) 

Special for 0/1 Combos (0,1,2,3) $259. 
SALE Prices on Drives! 



HALF- HEIGHT DRIVE 
UPGRADES FOR RS HORIZON- 
TAL CASES 

Why only double the capacity of your 
-i -.lem when you can triple in the same 
case? Kit includes: double-sided to fit 
I i case, chip to run both sides of new 
drive, hardware, and detailed instruc- 
Easy! Takes only 5 minutes! 

Model Only $119. 

500, 501, or 502 







All drives are new and fully assembled. 
We ship only FULLY TESTED and 
CERTIFIED at these low prices. We 
use Fuji, YE Data, and other fine 
brands. No drives are used or surplus 
unless otherwise staled 10 you when 
you order. We appear to be the one of 
the few advertisers in Rainbow who 
can truly make this claim. We have 7 
years experience in the CoCo disk 
drive market! We are able to provide 
support when you have a problem. 



Drives 1 Year Warrant) 



OWL Phones 

Order Numbers (only) 

1-800-245-6228 

1-215-682-6855 

Fax: 1-215-837-1942 

Technical Help 

1-215-837-1917 



OWL WARE Software Bundle 



Disk Tutorial/Utilities/Games 
DISK TUTOR Ver 1.1 

Learn how to use your disk drive from 
this multi-lesson, machine language 
program. This tutor lakes you through 
your lessons and corrects your mistakes 
for a quick, painless disk drive introduc- 
tion. (This professionally written tutor 
is easily worth (he bundle's total price.) 

3 UTILITIES 

A copy verify, copy, and DOS utility. 

2 GAMES 

We will select 2 games from our slock. 
These are sold for more than $20 each. 



Do not mistake ihis software with cheap 
Public Domain" software which others 
offer. All of this software is copyrighted 
and professional in quality. The tutor is 
unique with us and has helped 
thousands of new users learn their disk 
drive. 



only $27.95 

(or even better) 

only $6.95 with 

any Disk Drive Purchase!! 



512K Upgrade 

Again at a popular price. Fully as- 
sembled and tested before shipping. 
Easy to install. Uses fast 120 ns. chips. 

Only $85. 

Now includes memory test, Ram Disk 
Lighting, Printer Lighting, and Back- 
up Lighting. All with an upgraded 
manual exclusive with OWL! 



Our prices include a discount for cash but 
do not include shipping. 

OWL-WARE has a liberal warranty policy. During Ihe warranty 
period, all defective items will be repaired or replaced at our 
option at no cost to the buyer except tor shipping costs. Call 
our tech number tor return Return ot non-detective or un- 
authonzec^eturnsaresubjecnc^^en/ic^harge^^^^ 



OWL-WARE 

P.O. BOX 116 

Mertztown, PA 19539 



A quick look at the basics of graphics animation 




by FW StadMta© 




omputer animation can be 
frustrating and time-con- 
suming for novices as well 
as for the most experienced 
programmers. Especially 
frustrating are the so-called experts who 
constantly criticize Extended basic as being 
inadequate for video games and other ap- 
plications involving speed or graphics. 



Phil Stroffolino is a self-taught program- 
mer specializing in video games. He is 
currently performing contract work for lo- 
cal businesses. He can he contacted at 585X 
Southminster. Houston, TX 77035. Please 
include an SASE when requesting a reply. 



Machine language is fast, but in many cases 
it is possible to push BASIC to its limits and 
accomplish the same tasks. Jumpman is a 
program written entirely in basic for use 
with a CoCo 1, 2 or 3 with at least 32K of 
memory. 

Jumpman uses intricate techniques to 
move objects, scroll the screen and ma- 
nipulate the playing character. Use the left 
and right arrow keys to move the character, 
and the space bar to cause him to jump over 
obstacles that appear on the screen. 

Most of the program's work is performed 
using GET and PUT. The flowers and "ar- 
rows" used as obstacles are drawn in Line 
I (land stored in variables E and F. The three 
positions used by Jumpman are drawn in 
lines 20 and 30. They are stored in variables 
Ml, MZ and M3. The "dead" Jumpman is 
drawn in Line 40 and stored in M4. Finally 
the title screen is drawn in Line 50, and the 
game starts at Line 60. 

I hope you'll find Jumpman enjoyable, 
as well as a helpful source when writing 
your own animation routines. □ 
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32K Extended 




20 127 

40 252 

80 105 

120 22 

END 133 



The Listing: JUMPMAN 

'JUMPMAP 

1 "WRITTEN BY PHIL STROFFOLINO 

2 'COPYRIGHT FEBRUARY 1991 

3 'BY FALSOFT. INC. 

4 'RAINBOW MAGAZINE 
10 CLS0:CLEAR500:PCLEAR8:PMOOE1. 
1:PCLS3:DIMM1(12).M2(12).M3(12). 
M4(12).F(8).E(8):DRAW"S8BM128.4C 
2NE2F2BR3H2E2BR2BDGFBM128.96C4DR 
2DER20ERUBL3C2LBD2C102L2HBR7GL2N 
U2DL":GET(128.0)-(142.8).F:GET(1 
28.96)-(142.138).E 
20 DRAWBM10.0C4R5FL8GNR11GDER2D 
2EUR3C2R20L4GR9FL4FR3GL2C4DLU2HD 
2HUC2L6U2L02HD2R7FNL7FL4C1L3GR11 
OLllORllGL9BE9LUR":GET(0.0)-(30. 
30).M1:PUT(32.0)-(62.30).M1:DRAW 
"BM2.20C4R4FL5FR5C2R3UNL3BR4UBG4 



C4L5DR6BM32.18EFLGR3DNL2RC2R2UL2 

BR10RD2C4HLFL3GR4GL2 

30 DRAWBL8EL4DR2OLBM72.0R5FL8GN 

R11GDER2D2EUR3C2R2DL4GR9FL4FR3GL 

2C4DLU2HD2HUC2L6U2LD2HD2R7FNL7FL 

4C1L3FR6GL5GR8DL8FR8C4R2EL3UR3UL 

3ER2BDBL13C2DLULUR3C4NR2DNR2B03G 

U2LD2BLBUBE10C1RUL":GET(0.0)(30 

.30).M1:GET(32.0)-(62.30).M2:GET 

(64.0)-(94,30).M3 

40 DRAWBM98.0C4D4EUFNU3ED3ENU4R 

U2FNU3RURNU2R2NU2R2NU2GC1D2LU2LD 

2HC2UGLDNL2R2BR4U2F2LFL14UR2ULBD 

3NR8LFR7FNL4FL3FR4BU2REL2HR3BL4C 

4FL2FRBD4R2FL3BL3L3DNR4BH6NRD2C2 

D2FNR2U2NR3U2R2HC1R3GR3FNL6DNR4L 

3DNR6DLUL2":GET( 96.0) -( 126.30 ).M 

4 

50 CLS6:SCREEN0.0:PMODE3.1:PCLS3 

:DRAW"BM40.38C4D12NL12BR4NU12R12 

NU12BR4U12F6E6D12BR4U12R12D6NL12 

BD6BR4U12F6E6D12BR4U12R12D6NL12D 

6BR4U12F12U12":SCREEN1.0:B-1:FOR 

I-2T014STEP2:C0L0RB:B-3-B:LINE(I 

,I)-(254-I.96-I).PSET.B:NEXT 

60 J(7»--24:J(6)— 16:J(5)— 8:J(4 

)-0:J(3)-8:J(2)-16:J(l)-24:PMODE 

3 . 5 : PCLS3 : FORI-0TO3 : PMOOEl . 1+4 : C 

OLOR4:LINE(0.178)-(255.190).PSET 

,BF:DRAW"C2BM0.176R127BM0.191R12 

7":B-I:X-0 



70 B-B+1+4*(B-3):IFB-0THENDRAW"B 

M-X : . 1760NL4NR4DNLNRD3NLNRDNL4R4 

80 X-X+16:IFX<256THEN70ELSENEXT 

90 PMODE3.1:PCLS3:L-0:C— 8:A-0:B 

-5 : W-l : X-32 : K-0 : Y-78 : J-0 : M-0 : S-0 

: PMOOEl. 3 :SCREEN1.0:POKE65478.0 

100 W-l:PMODEl.W:PCOPYB TOW:Q-X: 

IFK THEN160ELSEIFJ THEN170ELSEIF 

M THENPUT(X.Y)-(X+30.Y-30).M2 EL 

SEPUT(X.Y)-(X+30.Y-30).M1 

110 IS-INKEY$:H-(PEEK(343)-247)- 

(PEEK(344)-247):J--7*(I$-" "):IF 

H>0THENX-X+S:S-S-8*(S<16):M-M-0E 

LSEIFS THENM-0:X-X+S:S-S-8ELSEIF 

H<0THENX-X+8*(X>0):M-M-0ELSEM-0 

120 A-A-16:IFA<0THENA-256:R-64-8 

*RND(2)ELSEPUT(A.R)-(A+14.R+8).F 

:IFY<R+60RA>Q+240RA<Q-8THENELSEK 

-1 

130 IFC<-16THENC-240ELSEIFO-0TH 

ENPUT(C.68)-(C+14.78).E:IFY<780R 

O0+240RC<Q-8THENELSEK-1 

140 1FX>112THENB-B+1+4*(B-8):X-X 

-16:A-A-16:C-C-16 

150 PCOPY1TO3:GOTO100 

160 L-L+1:PUT(O.Y)-(Q+30.Y-30).M 

4:PLAY"01T24L24CGE-":IFL<8THEN12 

0ELSEPLAY"O1T6L4V>CV<DV>E-V<L2AP 

1":GOTO50 

170 Y-Y+J(J):J-J-l:PUT(X.Y)-(X+3 

0.Y-30).M3:X-X+S:GOTO120 
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novices niche 



Financial Utility 



16K Extended 



Loans 

by Steve Knapik 

This program can be used to quickly 
and accurately find monthly payments 
and interest on loans or mortgages. It is 
very helpful when considering your loan 
options. 

Upon running Loans you are asked to 
enter the loan amount. Enter a figure in 
whole dollars, rounding to the closest 
dollar value. Next you are asked for the 

The Listing: LOANS 

10 'LOANS 

11 'WRITTEN BY STEVE KNAPIX 

12 'COPYRIGHT FEBRUARY 1991 
• 'BY FALSOFT. INC. 

.-: 'RAINBOW MAGAZINE 
28 REM 0.793 K 
100 WIDTH32 : CLS 

10 CLS:PRINT" > LOAN CALCUL 

■JS" 

120 PRINT:PRINT"WHAT IS THE AMOU 
F THE LOAN" 



interest rale. The program takes care of 
conversions so you should enter this as a 
whole number with a decimal portion, if 
necessary. For example, enter 11.5, not 
.115. for an interest rate of 1 1 '/: percent. 
Finally, enter the number of years over 
which you will carry the loan. The results 
are printed onscreen. CoCo 1 and 2 should 
remove WIDTH32 from Line 100. 

130 INPUT"IN WHOLE DOLLARS" ;A 

140 IF A-0 THEN 110 

150 A-ABS(A) : A-INT(A) 

160 IF A>250000 THEN 410 

170 PRINT: INPUT"RATE OF INTEREST 

":R 

180 PRINT: INPUT"NUMBER OF YEARS 

":Y 

190 N-Y*12 : R-ABS(R) : M-R/1200 

200 GOSUB 360 : W-l 

210 FOR J - 1 TO N : W-W*(l+M) : 

NEXT J 
220 P-(A*M*W)/(W-1) 



230 P-INT(P*100+.99)/100 

240 K-N*P : L-K-A 

250 K-INT(K) : L-INT(L) 

260 SOUND 200.01 : CLS : PRINT 

270 PRINT"AMT. OF LOAN : $"A 

280 PRINT 

290 PRINT'RATE OF INTEREST :"R"% 



300 


PRINT 










310 


PRINT- 


NUMBER OF YEARS 


"Y 




320 


PRINT 


: PRINT 


: PRINT 






330 


PRINT- 


MONTHLY 


PAYMENTS : 


$ 


'P 


340 


PRINT' 


INTEREST 


PAID : 


$ 


• 


350 


PRINT- 


DEFERRED 


PRICE : 


$ 


■K 


355 


END 










360 


CLS : 


PRINT A: 


"F0R":N: 






370 


PRINT- 


MO. AT": 


R:"%- 






380 


PRINT 


PRINT"» 


STAND BY 


- 


U) 


W COMPUTING" 








390 


SOUND 


165.10 








400 


RETURN 








410 


SOUND 


100.5 : 


PRINT:PRINT" 




NOTE : T LA 


R G E V 






420 


END 
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The Assembly Line 

Part VII: Julia's Child 



by William P. Nee 



Part I of "The Assembly Line" 
(RAINBOW, May I wo) dis- 
cussed computing and plotting 
numbers within the Mandel- 
brot set. The computations 
involved the repeated squaring of a com- 
plex number r and adding anothercomplex 
number c (new z=z*z+c). In the Mandel- 
brot set the complex number always varied 
(il was the current x and y coordinates). In 
the Julia set. named for French mathemati- 
cian Gaston Julia, c is defined at the begin- 
ning and remains constant all the way 
through the computation. This may seem 
like a small change in procedure, but it 
causes major differences. All the Julia 
coordinates can be thought of as pages in a 
book. The Mandelbrot set is the sum of 
these infinite pages and is a volume by 
itself. 

Take a look at Listing 1 . In Line 90 (he 
real part of the complex number (JA) is 
added and in Line loo the imaginary part 
(JB) is added. If this was a Mandelbrot 



Bill Nee bucked the snowbird trend by 
retiring to Wisconsin from a banking ca- 
reer in Florida. The success of his 13-part 
series, "Machine Language Made BASIC" 
(July 1988 to July 1989), prompted him to 
continue writing articles on Color Com- 
puter machine-language programming. 
You may contact Bill at Route 2, BoxilftC. 
Mason, Wl 54856-9302. 




program. Line 90 would have added x in- 
stead of J A and Line loo would have added 
y instead of J B. Julia sets are usually plotted 
somewhere between - 1 .5 and +1 .5 on both 
the real X axis and imaginary y axis. If JA 
and JB are coordinates within the Mandel- 
brot set. the resulting Julia set will be con- 
nected. But if they are outside the set. there 
will be isolated sets. You can zoom in on 
any portion of a Julia set by changing the x 
and y locations. The Julia coordinates (JA 
and JB) remain unchanged. 

The machine language program (List- 
ing 3) and it's BASIC driver (Listing 2) will 
compute either a Mandelbrot or Julia set. 
save it with all necessary information to 
disk, zoom in on part of the picture and even 
recolor any part of it. The first part of 



Listing 3 assigns space for all the variables, 
clears the iteration counter array ( 256 bytes) 
and the array where the iteration count for 
each point will be stored (ssooo to SE000). 

The coordinates for each point are 
computed in lines 470-540 and lines 550-640. 
The imaginary part of the number (2*A*B) 
is computed in lines 730-780 and the real part 
(A*A-B*B) is computed in lines 800-950. If 
it's a Mandelbrot program (JULIA-O) the.v 
and y locations are added and if it's a Julia 
program (JUL1A-1) then the JA and JB 
coordinates are added. The real and imagi- 
nary parts are squared and added together 
in lines 11 20-1 150. If the value is greater than 
four, the point must be outside the desired 
set and is colored based on it's iteration 
count. If the value is less than four and the 
maximum iteration count hasn't been 
reached, the whole process is repeated. 
When the count has been reached, the point 
is plotted as a Mandelbrot or Julia set point. 
Every point within the area you've picked 
is checked and plotted in the same manner. 

The next part of the program originates 
at S7500 and is acursor routine. Graphics for 
the cursor are stored in CURSOR. The ROM 
routine in Location saooa reads the joy- 
stick, stores the horizontal distance in S015A 
and the vertical distance in S015B. Since 
these readings are only from zero to 63 and 
the cursor is one byte wide, I had to scale 
each before saving them. Also, since the 
cursor is eight bytes high, the top can't go 
below 184. The byte where the cursor will 
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be located is determined (lines 1900-1960). 
and the eight graphics byles under it are 
removed and replaced with the cursor (lines 
1990-2080). After a short delay the graphics 
are replaced (lines 2140-2210). This contin- 
ues until you press the fire button indicating 
that this location is the upper-left corner of 
the zoom box. 

As long as you hold down the fire but- 
lon. the program keeps drawing a box. The 
horizontal and vertical distance between 
the old and curreni location is computed in 
lines 2300-2370. When this distance is at 
least three, graphics along the top border 
are removed and replaced with a red line 
H 1520-2590). The right side is drawn 
next (lines 2610-2700). the bottom line is 
drawn (lines 2720-2810) and finally the left 
i lines 2830-2920). After a short delay all 
graphics bytes are replaced in the same 
order. 

This activity repeats until the fire button 

- released indicating Ihe location of the 

lower-right corner of the zoom box. The 

ic program ihen uses this information 

to compute new coordinates, rescale them 



and then start drawing. There is a pause 
before drawing to let you write down the 
new coordinates and distances. Remem- 
ber, the zoom box must start at the upper- 
left comer and go to the lower-right comer. 
I did not include any error trapping to see if 
the user tries any other direction. 

The final routine (starting at S7AO0) re- 
colors the display according to what new 
color value you assign to a specific iteration 
count. The program starts in high RAM, 
searching the stored count array for the one 
you have chosen (lines 3450-3540). When it 
finds a match, the coordinates for that point 
are computed and the point is PSET with the 
new color you picked (lines 3560-3760). The 
program keeps searching for other occur- 
rences of the iteration count, setting those 
coordinates whenever one is found, then 
returns to basic. Each routine is a stand- 
alone program and could be added to other 
programs. For example. I use the cursor and 
recolor routines in several different draw- 
ing programs. When you've finished typ- 
ing the program and correcting errors, save 
the source code as W MAN DEL. SRC and as- 



semble it with A MANDEL.BIN /NS/WE. 

Now to review the basic program in 
Listing 2. Since there are many different 
strings in use. I had to clear a lot of space for 
them in Line to. And because each disk file 
is so large, the FILES command clears space 
for 310 bytes. Lines 20-30 dimension all of 
the variables up front, which ensures that 
the VARPTR command will always produce 
the correct result. Array CL is a clear block 
that quickly erases. Array GE will get graph- 
ics and array NU gets the current recolor 
numbers. 

The subroutine in Line 1700 originally 
creates an MJDATA file of 307 bytes, which 
will contain all the necessary picture infor- 
mation. Once this file exists, the routine 
prints the names of the pictures. The sub- 
routine at Line 1500 pokes a 252-byte color 
scheme into the color array at S72C9. You 
can use any other method of coloring, as 
long as it ends with POKE CO+251.255. 

If you enter your own coordinates. X LO - 
CAT I ON and Y LOC AT I ON are the beginning of 
the area you want to display. X0 1 STANCE is 
how far to the right to go and Y D I STANCE is 



SUPERIOR PROGRAMS FOR HOME AND OFFICE 



BANKMAN. Continuously updates your checkbook. Save, Edit 
and print (lies. Lets you analyze spending; reconciles, sum- 
marizes banking transactions. Uses 32K. Manual. . . $39.95 

GENERAL STATISTICS. Computes over SO stats, including 
Standard deviation & error, Covariance, Correlation, Chi- 
Square and ANOVA. Includes screen tables and manual. Edits, 
Saves and Prints data. User friendly. Has Manual. . . S39.95 

ENVELOPE WRITER. Prints return and mailing addresses dir- 
ectly on the envelope with a DWP or on tractor envelopes with 
a DMP. Saves on labels! Memorizes return addresses. Prints 
•rith custom fonts on TANDY printers. Uses 16K. . . . S19.95 

BASEBALL STATS. Keeps track of 20 statistics. Continuously 
.pdates. Full of options! Uses 32K. Includes Manual. .$39.95 

QUICK STATS. A Baseball Scoreboard! Keeps track of over a 
Sczen stats. Lets you save, edit & print data. 16K. . . $24.95 

INBUSTERS. Multiple Choice/True-False Test Writing 
ram. Lets you Save, Edit, Select, Randomize & Print, 
more options! Use professionally or for fun. . . $39.95 

EXAMINER. Use with above program to take "On Screen" 
. Grades and Saves results. For home or class. . . $24.95 

1-3. Try these BRAINBUSTER quizzes. Each. . $10.95 

CO LABELS. Sets up alphabetic screen index. 32K. . $29.95 

CALCULATOR PROGRAM. Practical! Educational! 16K. . $14.95 




!y COCO 1, 2 or 3. 
>*« Only. Send check or 
»e-ey order. Add $3.00 

- : :;ng/Handling. 
*~; s Residents add 



Sales Tax. 






TRADING POST 



DISTRIBUTORS OF 
5-STAR SOFTWARE 
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CARBONDALE, IL 
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REVOLUTIONARY. 



The MM/1. 



A revolutionary computer system 
designed by you. 



MM 



ONE 



Two years ago. the first MM/1' M design 
was laid out. Shaped by the latest 
computer technology - and by your 
needs-- theMM/1 isthe most affordable, powerful 
system you can buy. • The MM/1 uses your existing 
RGB-A monitor. II uses your joystick, floppy 
drives, printer, and modem. • Designed around 
industry standards, your future peripherals will fit 
nicely in your MM/1 system. 



MM 
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And the MM/1 already runs Amiga" 1 
graphics utilities, PC animation, 
Macintosh 1 " sounds, and follows 
important elements of the Compact Disk- 
Interactive™ standard. IMS offers word- 
processing, databases, and applications brought 
over from the DOS and UNIX worlds. • Smooth 
stereo DMA sound lets the MM/1 s 68070 
processor work undisturbed. DMA 1.4 Megabyte 
floppy drive. Expandable to five floppies, seven 
hard disk or tape drives, five serial ports. Two 
parallel ports. Joystick port. You can network 128 
MM/1 s together. 

Call 800/866-9084 for brochure or video. 
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how far up (both of these must be posi- 
tive). For Julia sets, also include the Julia 
point you're looking at (S7G3A is JULIA in 
the machine language program). If the co- 
ordinates entered are correct, the drawing 
routine of the machine language program 
is executed. 

The routine at Line 300 gives you menu 
options. Recoloring should be done be- 
fore saving the picture and information to 
disk. Line 4(K) terminates the entire pro- 
gram. Line 500 copies the current picture 
to page five and saves the current informa- 
tion, while Line I too is the reverse trans- 
ferring the picture and information back to 
page one. 

Line 600 finishes the cursor routine by 
computing new x and y locations. The 
subroutine at Line 1200 computes the new 
x scale and y scale and then pokes all this 
new information into the machine-lan- 
guage program. 

The routine at Line 700 loads the picture 
you select, opens the corresponding file to 
get all the necessary information and pokes 
the color scheme into the color array, Line 
900 is the reverse, saving the picture and 
information to disk. NM$ is the name you 
want to give the picture, up to 12 letters. I 
start all names with an M or J to indicate 
which set they belong to. The program 
automatically creates a disk title MANDEL 
l.PIX. etc. Line 1600 creates a 252 byte 
string of the current color array so it can be 
saved to disk. 

The recolor routine starting at Line tsoo 




70 253 

160 136 

340 92 

620 9 

760 88 

900 200 

1010 70 

1210 87 

1320 10 

1510 152 

1705 101 

1820 112 

1950 64 

2040 123 

2130 165 

2280 24 

2390 198 

2500 123 

END 36 



Listing 2: MANDEL2 



'COPYRIGHT 1990 FALS0FT. INC. 
10 CLEAR1000.&H7000-1:PCLEAR8:FI 
LES 1.310:CLS 
20 IF PEEK(&H7040)O142 THEN L0A 



is almost half of the entire BASIC program. 
You are given the choice of having the 
used iteration counts and their colors sent 
to the screen and printer, or skipping over 
that part. Line 22(X) draws the three-digit 
count you select and the color you want. 
Remember to use the back arrow to cor- 
rect any mistakes. When the count has 
been recolored. press Enter for another 
recolor or the up arrow to go back to the 
menu. Line 2600 saves the DRAW commands 
for numbers and a dash as strings. 

Wow! Let's try an example and get a 
feel for the program. Save the basic pro- 
gram as MANDEL and then run it. At the 
prompt, press 1 to enter your own data. 
Then enter -.83 for XL0CATI0N, +1.66 for 
XD I STANCE. -.83 for Y LOCATION and +1.66 
for YDISTANCE. Since this will be a Julia 
set, enter J and then +.31 for J A LOCATION 
and +.00742 for JB LOCATION. When the 
picture is finished, press ENTER to get to 
the menu and then either 3 or 4 to scale it. 
Try zooming in on the large spiral on the 
lower-left side, which should give you a 
large version of the original. While Man- 
delbrot set pictures may change consid- 
erably when you zoom in, Julia set pic- 
tures tend to be enlarged originals. 

If you are willing to forgo the recol- 
oring routine, you could really increase 
the iteration count. The current count 
would have to be a two-byte number and 
the color table enlarged. Some displays 
with very small distances may require up 
to iooo-i.wo iterations to get all the detail. 



DM"MANDEL" 

30 DIM NM$(20).T1$(20).XL.YL.XD. 

YD.XS.YS.JA.JB.V.H.X1.Y1.XZ.Y2.L 

X.LY.DX.DY.AJ.BJ.X.A.S.B.C.D.J.C 

T.NU.CO 

40 DIM GE(11).CL(11).NU(11).A$(1 

0),A$.B$.C$.D$.DA$.CO$.XL$.XD$.Y 

L$.YD$.JA$.JB$ 

50 G0SUB 1700:J-0 

60 PRINT" MANDELBROT/JULIA PROGR 

AM":GOSUB1500 

70 PMODE3.1:PCLS:GET(0.0)-(55.7) 

.CL 

80 PRINT"MENU SELECTION -":PRINT 

90 PRINT" 1) INPUT CURRENT DATA": 

PRINT 

100 PRINT" 2JL0AD PICTURE FROM D 

ISK":PRINT 

110 Ai-INKEY$:IF A$-""THEN 110 E 

LSE ON VAL(A$) GOTO 120.700 

120 CLS:PRINT: INPUT"XL0CATI0N" :X 

L 

130 INPUT"XDISTANCE":XO:IF XD<-0 

THEN 130 
140 PRINT:INPUT"YL0CATI0N";YL 
150 INPUT"YDISTANCE";YD:IF YD<-0 

THEN 150 
160 PRINT:PRINT"<M>ANDELBR0T OR 
<J>ULIA SET" 

170 A$-INKEY$:IF A$-"M" THEN J-0 
:G0T0 210: ELSE IF A!-"J" THEN 1 



You can stop the program and go to differ- 
ent lines if you've made a mistake that 
can't be corrected. 

The basic menu begins in Line 80 and 
the menu options begin in Line 300. Line 
900 saves the picture and information (be 
sure S is the current file number). 

That's going to be all for Mandelbrot 
and Julia sets for a while. Maybe at some 
time in the future we'll draw them in 3-D. 
In the next article I'll discuss warping and 
twisting pictures. Your suggestions and 
comments are appreciated. If you have 
any ideas for future articles or general 
questions, please let me know. □ 



64K Disk 



Listing 1: MANDEL1 

'COPYRIGHT 1990 FALS0FT. INC. 

10 XL— .83:XD-+1.66:XS-XD/64 

20 YL— .83:YD-+1.66:YS-YD/64 

30 JA-+.31:JB-+. 00742 

40 PMODE1.1:PCLS:SCREEN1.0 

50 FOR H-0 TO 63:X-XL+H*XS 

60 FOR V-0 TO 63:Y-YL+V*YS 

70 A-X:B-Y 

80 FOR C-0 TO 50 

90 AA-A*A-B*B+JA 

100 BB-2*A*B+JB 

110 A-AA:B-BB 

120 IF A*A+B*B>4 THEN PSET(H+H.l 

90-(V+V).C AND 3):G0T0 140 

130 NEXTC:PSET(H+H.190-(V+V).4) 

140 NEXT V.H 

150 GOTO 150 



80 ELSE 170 

180 IF A$-"J" THEN J-l 

190 PRINT: INPUT"JA LOCATION" :JA 

200 INPUT"JB LOCATION" ;JB 

210 POKE &H703A,J:GOSUB1200:PMOD 

E3,1:PCLS:SCREEN1.0 

220 EXEC &H704A:SOUND 50.4:EXEC 

&HADFB 

300 CLS:PRINT"0PTI0NS -" 

310 PRINT" DSAVE TO DISK" 

320 PRINT" 2)L0AD FROM DISK 

330 PRINT" 3)SAVE TO MEMORY AND 

SCALE 

340 PRINT" 4)SCALE PICTURE 

350 PRINT" 5) LOAD FROM MEMORY AN 

D SCALE 

360 PRINT" 6)REC0L0R".." 7)END P 

R0GRAM" 

370 A$-INKEY$:IF A$-""THEN 370 

380 ON VAL(A$) GOTO 900.700.500. 

600.1100.1800.400 

390 GOTO370 

400 PCLEAR4:CLEAR200.&H7FFF:NEW 

500 FOR N-l TO 4:PC0PY N TO N+4: 

NEXT 

510 LX-XL:DX-XD:LY-YL:DY-YD:AJ-J 

A:BJ-JB 

600 PMODE3.1:SCREEN1,0 

610 EXEC &H751A 

620 H1-PEEK(&H7500)*4:V1-PEEK(&H 

7501):V1-192-V1 
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660 
B7fl 



710 
720 



630 X1-XL+H1*XS:Y1-YL+V1*YS 

640 H2-(PEEK(&H7502)+1)*4:V2-PEE 

K(&H7503):V2-191-V2 

650 X2-XL+H2*XS:Y2-YL+V2*YS 

X0-X2-X1:YD-Y1-Y2 

XL-X1:YL-Y2 
680 GOTO 210 
700 CLS:PRINT"DISK DIRECTORY -" 

IF S>0 THEN GOSUB 1750 

IF S-0 THEN GOSUB 1700 
730 PRINT 

740 INPUT-ENTER DESIRED TITLE NU 
MBER";A:IF A>S THEN 740 
750 PMODE3.1:PCLS:SCREEN1.0:POKE 
65494. 0:LOADM TI$(A) 
760 OPEN"D".#1."MJDATA".307 
770 FIELD#1.1 AS J$,12 AS Ai.12 
AS B$.5 AS XLS. 5 AS XD$.5 AS YL$ 
.5 AS YD$.5 AS JAS.5 AS JBS.252 
AS C$ 

780 GETtfl.A 

790 J-VAL(J$):POKE&H703A.J 
800 NM$-A$:TI$-B$ 
810 XL-CVN(XL$):XD-CVN(XD$):XS-X 
D/128 

820 YL-CVN(YL$):YD-CVN(YD$):YS-Y 
D/192 

825 JA-CVN(JA$):JB-CVN(JB$) 
830 CO$-C$ 

840 CLOSE#1:GOSUB1650:GOTO 610 
900 PRINT:LINEINPUT"PICTURE NAME 
- " :NM$: IF LEN(NM$)>12 THEN PRI 
NT"TITLE IS TOO LONG" :GOTO900 
910 S-S+l:TI$-"MANOEL"+RIGHT$(ST 
R$(S).2)+".PIX" 



920 VERIFYON:SAVEM TI$ .&HE00.&H2 

5FF.&HE00 

930 PRINT"GETTING COLORS -" 

940 GOSUB 1600 

950 OPEN"D".#1."MJDATA".307 

960 FIELD#1.1 AS JS.12 AS A$.12 

AS B$.5 AS XL$.5 AS XD$.5 AS YL$ 

.5 AS YDS. 5 AS JAS.5 AS JBS.252 

AS CS 

970 LSET J$-RIGHTS(STRS(J).l) 

980 LSET AS-NMS 

990 LSET BS-TIS 

1000 LSET XLS-MKNS(XL) 

1010 LSET XDS-MKNS(XD) 

1020 LSET YLS-MKNS(YL) 

1030 LSET YDS-MKNS(YD) 

1035 LSET JAS-MKNS(JA) 

1036 LSET JBS-MKNS(JB) 
LSET CS-COS 
PUT#l.S:CLOSE#l 
NMS(S)-NMS:TIS(S)-TI$ 

1070 GOTO 300 

1100 PM00E3.1:SCREEN1.1 

1110 FOR N-5 TO 8:PC0PY N TO N-4 

:NEXT 

1120 XL-LX:XD-DX:YL-LY:YD-DY:JA- 

AJ:JB-BJ 

1130 GOTO600 

1200 XS-XD/128:V-VARPTR(XS) 

1210 FOR N-0 TO 4:POKE&H7001+N.P 

EEK(V+N):NEXT 

1220 YS-YD/192:V-VARPTR(YS) 

1230 FOR N-0 TO 4:POKE&H701B+N. P 

EEK(V+N):NEXT 

1240 V-VARPTR(XL) 



1040 
1050 
1060 



1250 FOR N-0 TO 4: POKE&H7006+N.P 

EEK(V+N):NEXT 

1260 V-VARPTR(YL) 

1270 FOR N-0 TO 4:POKE&H7020+N. P 

EEK(V+N):NEXT 

1280 IF J-0 THEN 1330 

1290 V-VARPTR(JA) 

1300 FOR N-0 TO 4:POKE&H703B+N.P 

EEK(V+N):NEXT 

1310 V-VARPTR(JB) 

1320 FOR N-0 TO 4: POKE&H7040+N. P 

EEK(V+N):NEXT 

1330 CLS 

PRINT-CURRENT DATA -":PRINT 
PRINT" XLOCATION :";XL 

XDISTANCE :":XD:PRIN 



1340 

1350 

1360 PRINT 

T 

1370 PRINT 



1380 
T: IF 



PRINT' 



YLOCATION 
YDISTANCE 



':YL 
':YD:PRIN 

';JA 

';JB:PR 



PRINT"PRESS ANY KEY TO BEGI 



J-0 THEN 1410 

1390 PRINT" JA LOCATION 

1400 PRINT" JB LOCATION 
INT 
1410 
N " 

1420 EXEC SHADFB: RETURN 

1500 CO-&H72C9 

1510 FOR X-0 TO 10 

1520 POKE CO+X.0:NEXT 

1530 FOR X-ll TO 250 

1540 POKE CO+X.tX AND 3)*&H55 

1550 NEXT 

1560 POKE C0+251.&HFF: RETURN 

1600 C0S-"":C0-&H72C9 

1610 FOR X-0 TO 251 



COLOR RIBBONS & PAPER 


COLOR RIBBONS 


COLOR PAPER 


RED. BLUE GREEN. BROWN. PURPLE YELLOW 


BRIGHT PACK 
200 Sheets 50 ea color 


Ribbons Price Each 


Black 


Color 


Heat 








Transfer 


Red, Blue. Green. Yellow 
9 12 • 11 S1 1.90 pk 










Radio Shack 










OMP 130 


6.50 


800 




PASTEL PACK - 


DMP 110 


4.50 


5.25 


5 75 


200 Sheets/50 ea color 


- OMP 120 


6 75 


7 75 




Pink, Yellow. Blue. Ivory 


- DMP 130 132 


5.25 
6 75 


6.50 

7 75 


7.95 


9 12-11 511 90pk. 


DMP 200 




DMP 230 520 


400 


525 


_ 


COLOR BANNER, 


DMP 410 510 


5,00 


7 00 


_ 


PARTY BANNER. 


DMP 430 


12 00 






CHRISTMAS BANNER. 


1 - >" Image 1 II 


3.75 


4.50 


6 50 


HAPPY B DAY BANNER. 
CONGRATS BANNER - 


• 120 'BOD 


500 


6 00 


7 95 


45 Roll 59 95 Ea. Roll 


lfe»on MX80 LX800 


3 75 


4.25 


6.75 




its 180 192 


6.50 


7 50 


6.00 


COLOR CERTIFICATE 


Irwasonir K XP 1080 


6.75 


7 75 


- 


PAPER - 


iti'i r sp 800 looo 


5.25 


6.50 


7 95 


lOOShtsPk S9.95Pk 


•JX 10 NL 10 


500 


6 00 


795 


GREETING CARDS - 


1 fcr NX 1000 


4.50 


5 50 


675 


50 Cards & 40 Env 'Pk. - 


X 1000 4 Color 




875 




511.95 Pk 


T-SHIRT RIBBONS (Heat Transfer) - Call For Price 8. Avail 


COLORS: Red. Blue, Green. Brown, Purple, Yellow, Black 


COLOR DISKETTES 


514 DS DO Rainbow Pack 10'pack $12.50 


» -t*ons & papei noi listed above, call for plica Price & spec, subject to change wo 


order 525.00 S & H S3 50 minimum Visa M.C COD 


RAMCO COMPUTER SUPPLIES 


P Box 475, Manteno, IL 60950 USA 


(U.S.A.) 800-522-6922 • iCanadal 800-621 5444 


815 468-8081 



SELLING FAST. 

The MM/1 .The revolutionary computer system 

that everybody wants. 



MM 



ONE 



Interactive Media Systems designed the 
MM/1 lor the future -- and tor a wide 
range of users. • Industry and higher 
education are buying the MM/1. IBM-PC owners 
are buying the MM/1 Software engineers and 
multimedia developers are buying the MM/1. 

Now you can, too. 



MM 



ONE 




The computer industry, dominated by 
IBM and Apple, is growing at only 8 - 
10% per year. Personal Computing 
magazine reports that multimedia computing will 
more than triplety 1 992. The multimedia MM/1 is 
designed for the future, changing the way you 
think about computing. 

Join us and the rest of the Color Computer com- 
munity. Multimedia computing. Windows. Multi- 
tasking. Familiar operation. High resolution graph- 
ics. Stereo sound. 16 7 million color palette. Net- 
working. The MM/1. 

Welcome to your next computer. 



Call 800866-9084 for brochure or video 
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16Z0 C-PEEK(C0+X)/&H55+1 

1630 CO$-CO$+RIGHT$(STR$(C).l) 

1640 NEXT:RETURN 

1650 C0-&H7ZC9:F0R X-l TO 252 

1660 C-VAL(MID$(CO$.X.D) 

1670 POKE CO+X-l.C 

1680 NEXT:RETURN 

1700 OPEN"D" .#1 . "MJDATA" . 307 

1705 IF LOF(l)-0 THEN CLOSE#l:S- 

0: RETURN 

1710 FIELO#l.l AS J$.12 AS A$.12 

AS B$.5 AS XL$.5 AS XD$.5 AS YL 
$.5 AS YD$.5 AS JA$.5 AS JB$.252 

AS C$ 
1720 FOR S-l TO LOF(l):GET #1 . S 
1730 NM$(S)-A$:TI$(S)-B$ 
1740 NEXT:CLOSE#l:S-S-l:RETURN 
1750 FOR X-l TO S 
1760 PRINTUSING"##>";X;:PRINT NM 
$(X). 

1770 NEXT:RETURN 
1800 'RECOLOR DISPLAY 
1810 CLS:PRINT"RECOLOR" 
1820 PRINT"1> PRINT TO SCREEN"." 
2> TO PRINTER".."3> SKIP TO RECO 
LOR" 

1830 PRINT:PRINT"WHICH ONE -" 
1840 A$-INKEY$:IF A$-""THEN 1840 
1850 IF A$-"l" THEN 1890 
1860 IF A$-"2" THEN 2800 
1870 IF A$-"3" THEN 2110 
1880 GOTO 1840 

1890 CT-&H719D:CO-&H72C9:DA$-"-" 
1910 CLS:C-0:FOR X-0 TO 63: IF PE 
EK(CT+X)-0 THEN 1950 
1920 PRINTUSING"###";X::PRINTDA$ 

1930 PRINTUSING"# " : PEEK(CO+X)/& 

H55+1: 

1940 C-C+l : I F C-5 THEN C-0:PRINT 

1950 NEXT:PRINT:PRINT"PRESS ANY 

KEY TO CONTINUE"; :EXEC&HADFB:C-0 

1960 CLS:C-0:FOR X-64 TO 127: IF 

PEEK(CT+X)-0 THEN 2000 

1970 PRINTUSING"###";X;:PRINTDA$ 



1980 PRINTUSING"# 
H55+1; 



':PEEK(CO+X)/& 



1990 C-C+l: IF C-5 THEN C-0: PRINT 
2000 NEXT:PRINT:PRINT"PRESS ANY 
KEY TO CONTINUE": :EXEC&HADFB:C-0 
2010 CLS:C-0:FOR X-128 TO 191: IF 

PEEK(CT+X)-0 THEN 2050 
2020 PRINTUSING"###";X;:PRINTDA$ 

2030 PRINTUSING"# " : PEEK(CO+X)/& 
H55+1 : 

2040 C-C+l: IF C-5 THEN C-0: PRINT 
2050 NEXT:PRINT:PRINT"PRESS ANY 
KEY TO CONTINUE": :EXECSHADFB:C-0 
2060 CLS:C-0:FOR X-192 TO 255: IF 

PEEK(CT+X)-0 THEN 2100 
2070 PRINTUSING"###":X::PRINT DA 
$: 

2080 PRINTUSING"# ": PEEK(CO+X)/& 
H55+1; 

2090 C-C+l: IF C-5 THEN C-0:PRINT 
2100 NEXT:PRINT 

2110 PRINT-ENTER 3-DIGIT COUNT ( 
000 - 250)" 

2120 PRINT-THEN ENTER 1-DIGIT CO 
LOR (1 - 4)": 

2130 PRINT"PRESS ANY KEY TO BEGI 
N": 

2140 EXEC &HADFB 

2200 PMODE3.1:SCREEN1.0:GOSUB260 
0:GET(0.0)-(55.7).GE 
2210 POKE 135.0:A$-"":B$-"":C$-" 
":D$-"" 

2220 PUT(0.0)-(55.7).CL.PSET 
2230 A$-1NKEY$:IF A$-""THEN 2230 
2240 IF ASC(A$)<48 OR ASC(A$)>50 

THEN 2230 
2250 A-VAL(A$):DRAW"BM1.1:XA$(A) 

2260 B$-INKEY$:IF B$-""THEN 2260 
2270 IF B$-CHR$(8) THEN DRAWC1: 
BM1.1:XA$(A):C4":G0T0 2230 
2280 IF ASC(B$)<48 OR ASC(B$)>58 

THEN 2260 
2290 IF A-2 AND ASC(BS)>53 THEN 

2260 
2300 B-VAL(B$):DRAW"BM10.1;XA$(B 

2310 C$-INKEY$:IF C$-""THEN 2310 
2320 IF C$-CHR$(8) THEN DRAWC1: 



BM10.1:XA$(B);C4":GOTO2260 

2330 IF ASC(C$)<48 OR ASC(C$)>57 

THEN 2310 
2340 C-VAL(C$) 

2350 NU-100*A+10*B+C:IF NU>255 T 
HEN 2310 

2360 DRAW"BM20.1:XA$(C):" 
2370 POKE &H7A57.NU 
2380 DRAW"BM30.1;XDA$: B 
2390 D$-INKEY$:IF D$-""THEN 2390 
2400 IF D$-CHR$(8) THEN DRAWC1: 
BM20.1;XA$(C):C4":GOTO 2310 
2410 D-VAL(D$):IF D<1 OR D>4 THE 
N 2390 

2420 DRAW"BM40.1;XA$(D):" 
2430 GET(0.0)-(55.7).NU:PUT(0.0) 
-(55.7).GE.PSET 

2440 POKE &HB5.(D-1)*&H55:P0KE C 
0+NU.(D-l)*&H55 
2450 EXEC &H7A00 
2460 PUT(0.0)-(55.7).NU.PSET 
2470 A$-INKEY$:IF A$-""THEN 2470 
2480 IF A$-CHR$(94) THEN PUT(0.0 
)-(55.7).GE.PSET:GOTO 300 
2490 IF A$-CHR$(13) THEN 2210 
2500 GOTO 2470 
2600 A$(0)-"R6D6L6U5" 
2610 A$(1)-"BR3NG3D6NL3R3" 
2620 A$(2)-"R6D3L6D3R6" 
2630 A$(3)-"R6D3NL4D3L6" 
2640 A$(4)-"D3R6NU303" 
2650 A$(5)-"NR6D3R6D3L6" 
2660 A$(6)-"D6R6U3L6" 
2670 A$(7)-"R6D6" 
2680 A$(8)-"NR6D3NR6D3R6U6" 
2690 A$(9)-"ND3R603NL6D3" 
2700 DA$-"BD3BR1R3": RETURN 
2800 CO-&H72C9 : CT-&H719D: DAS-" - " 
2810 C-0: FOR X-0 TO 252: IF PEEK( 
CT+X)-0 THEN 2850 
2820 PRINT#-2.USING"###":X::PRIN 
T#-2.DA$; 

2830 PRINT#-2. USING"* ":PEEK(CO+ 
X)/&H55+1: 

2840 C-C+l: IF C-13 THEN C-0:PRIN 
T#-2 
2850 NEXT:GOTO 2110 



Listing 3: MANDEL.ASM 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 



HORZ 

XSCALE 

XLOC 

ACOR 

AA 

ASQR 

VERT 

YSCALE 

YLOC 

BCOR 

BB 

BSQR 

COUNT 

TEMPB 

JULIA 

JA 

JB 

FOUR 



ORG 
RMB 
RHB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
FDB 
FDB 
FCB 



$7000 

1 

5 

5 

5 

5 

5 

1 

5 

5 

5 

5 

5 

1 

5 

1 

5 

5 

$8300 

$0000 

$00 



VARPTR(4) 



00320 


START 


LDX 


#ITCT 


CLEAR IT OUT 


00330 




LDD 


#0 




00340 


CLOOP 


STD 


.X++ 




00350 




CMPX 


#ITCT+256 


00360 




BLO 


CLOOP 




00370 




ORCC 


#$50 




00380 




LDY 


#$8000 


IN HIGH RAM 


00390 




CLR 


$FFDF 


HIGH RAM 


00400 


CL1 


STD 


.Y++ 


CLEAR IT OUT 


00410 




CMPY 


#$E000 




00420 




BLO 


CL1 




00430 




CLR 


$FFDE 


LOW RAM 


00440 




LDY 


#$8000 




00450 










00460 


SHOW 


CLRB 






00470 


L00P3 


STB 


HORZ 




00480 




JSR 


$BC7C 




00490 




LDX 


#XSCALE 




00500 




JSR 


$BACA 




00510 




LDX 


#XLOC 




00520 




JSR 


$B9C2 




00530 




LDX 


#ACOR 


-XL+H*XS 
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00540 




JSR 


$BC35 




00550 




CLRB 






00560 


L00P2 


STB 


VERT 




00570 




CLRA 






00580 




JSR 


JB4F4 




00590 




LDX 


tfYSCALE 




00600 




JSR 


$BACA 




00610 




LDX 


#YLOC 




00620 




JSR 


JB9C2 




00630 




LDX 


#BCOR 


-YL+V*YS 


00640 




JSR 


$BC35 




00650 




LDX 


#bb 




00660 




JSR 


$BC35 




00670 




LDX 


#ACOR 




00680 




JSR 


$BC14 




00690 




LDX 


#AA 




00700 




JSR 


$BC35 




00710 




CLRB 






00720 


L00P1 


STB 


COUNT 




00730 




LDX 


#AA 




00740 




JSR 


$BC14 




00750 




LDX 


#BB 




00760 




JSR 


$BACA 


-A*B 


00770 




INC 


$4F 


-2*A*B 


00780 




LDX 


fTEMPB 




00790 




JSR 


$BC35 




00800 




LDX 


#AA 




00810 




JSR 


$BC14 




00820 




LDX 


#AA 




00830 




JSR 


$BACA 


-A*A 


00840 




LDX 


#ASQR 




00850 




JSR 


$BC35 




00860 




LDX 


m 




00870 




JSR 


$BC14 




00880 




LDX 


#BB 




00890 




JSR 


SBACA 


-B*B 


00900 




LDX 


#BSOR 




00910 




JSR 


$BC35 




00920 




LDX 


#BSQR 




00930 




JSR 


$BC14 




00940 




LDX 


#ASQR 




00950 




JSR 


$B9B9 


-A*A-B*B 


00960 




LDX 


#ACOR 




00970 




TST 


JULIA 


IS IT A JULIA PROGRAM? 


00980 




BEQ 


JA1 


NO 


00990 




LDX 


#M 


YES 


01000 


JA1 


JSR 


$B9C2 




01010 




LDX 


#AA 


-NEW REAL NUMBER 


01020 




JSR 


$BC35 




01030 




LDX 


#TEMPB 




, 01040 




JSR 


JBC14 




01050 




LDX 


#BCOR 




B1060 




TST 


JULIA 




01070 




BEQ 


JB1 




11080 




LDX 


#3B 




. 1090 


JB1 


JSR 


SB9C2 




100 




LDX 


#BB 


-NEW IMAGINARY NUMBER 


11110 




JSR 


SBC35 




01120 


TEST2 


LDX 


#ASQR 




01130 




JSR 


$BC14 




' ,J0 




LDX 


#BSQR 




11150 




JSR 


IB9C2 


-A*A+B*B 


01160 




LDX 


#FOUR 




01170 




JSR 


JBC96 


GREATER THAN 4? 


:::30 




TSTB 






11190 




BPL 


C0L0R2 


YES 


11200 




LDB 


COUNT 




11210 




INC8 
CMPB 


#250 




y.ih 




LBLS 


LOOP1 




J40 


COLOR1 


STB 


COUNT 




•1250 C0L0R2 


LDB 


COUNT 




■ 




CLR 


$FFOF 




I fl270 




STB 


.Y+ 


SAVE ITERATION COUNT 


1 11280 




CLR 


$FFDE 




1 11290 




CLRA 







delmar co 



SYSTEM IV COMPUTER 

PERFORMANCE - FLEXIBILITY - VERSATILITY 

MC68000 Microprocessor - 16 MHz 

1 MB of DRAM (0 nil state) 4 MB optional 
VGA Video Cart -800X6O0X16to320X200 

X 2S6 or a Hercules Monochrome Card 
Seven PC/XT Compatible Slots 
Floppy Disk Controller (37C65) supports two 360K. 720K. 

L2M or 1.4M Drive* 
One 1.4 MByte, 3 1/2* Floppy Drive 
Four RS-232 Serial Porn and a Parallel Printer Port 
40 MB Hard Drive, 28 msec - optional 
Clock with Battery 
4 layer board 

Memory Expansion slot - add up to 8 MB of DRAM. 
Professional OS9/68000 
One Year Parts and Labor Warranty 
Mfg by Peripheral Technology 
200 Watt Switching Power Supply 
AT style key bo ar d 
Baby AT Case - holds three 5 1/4* 1/2 ht drives 

and one 3 1/2* drive accesxable from the front and one 

3 1/2* internal drive. 
WD XTGEN Hard Disk Controller (MFM) 
Drivers and Descriptors for the Devices and Ports Included 

Model K4Q2-tn with Hercules Monochrome Video Card 51399.00 

Model K402-vwith VGA Video Card $1,499.00 

Model K401-m with 4 MB oo-board DRAM, 40 MB Hard Drive 

(28 msec) and Hercules Monochrome Card $1399.00 

Model K401-V with 4 MB on-board DRAM, 40 MB Hard Drive 

(28 msec) and VGA Card $1,999.00 

Monitors available at reduced prices when purchased with SYSTEM IV. 

OS9/680X0 SOFTWARE 

SCULPTOR - Development System (68000) from $1500.00 

Quick Ed - Editor and Text formatter $ 275.00 

FlezeLint - A must for C programmers $ 495.00 

Caching - High Speed Disk Cashing (demo available) . . $ 300.00 

IMP - Intelligent Make Program $ 250.00 

DISASMOS9 - OS-9/68K 3-pass Disassembler $ 250.00 

Windows- C Source Code Windowing Library $ 250.00 

Profile - User State Program Profiler $ 270.00 

PAN Utilities - C Source Code Utility Set $ 250.00 

(For boards and kits, contact Peripheral Technology at 1-404-984-0742.) 



P.O. Box 78 • Middletown Shopping Center • Middletown, DE 19709 
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01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 



PSET 



NEXT 



ITCT 

CTABLE 



H0RIZ1 

VERT1 

HORIZ2 

VERT2 

BYTE1 

BYTE2 

ACROSS 

DOWN 

CARRAY 

CURSOR 



JOY1 



UL 



CLOOP1 



LDX 

STB 

LDX 

LDB 

STB 

LDA 

SUBA 

LDB 

MUL 

ADDA 

TFR 

LDB 

LSRB 

LSRB 

ABX 

LDA 

ANDA 

LDU 

LDA 

ANDA 

ORA 

STA 

LDB 
INCB 

CMPB 

LBLS 

LDB 

INCB 

CMPB 

LBLS 

ANDCC 

RTS 

RMB 

RMB 

ORG 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
FDB 
FDB 
FDB 
FDB 
JSR 
LDA 
LSRA 
STA 
LDB 
PSHS 
LSLB 
ADDB 
CMPB 
BLS 
LDB 
STB 
LDA 
MUL 
ADDB 
ADCA 
ADDA 
STD 
TFR 

LDX 
LDY 

LDB 
LDA 
STA 
LDA 
STA 



#ITCT 

D.X SHOW IT'S BEEN USED 

//CTABLE 

D.X GET COLOR FOR COUNT 

$B5 

#191 

VERT 

//32 

$BA 
D.X 
HORZ 



HORZ 

#3 

//S92E5 

A.U 

$B5 

.X 

.X 

VERT 

#191 

L00P2 

HORZ 

#127 

L00P3 
//$AF 

300 
300 

$7500 

1 

1 

1 

1 

2 

2 

1 

1 

8 

$FCF0 

$F0F0 

$0CCCC 

$0303 

[$A00A] 

$15A 



X DIRECTION 



HORIZ1 

$15B Y DIRECTION 



,5+ 

//184 STAY 8 BYTES FROM BOTTOM 

UL 

#184 
VERT1 
#32 



HORIZ1 

#0 

$BA 

BYTE1 

D.U 



CURSOR BYTE 



//CARRAY 
//CURSOR 
#8 

.U 

.X+ SAVE GRAPHICS 

,Y+ REPLACE WITH CURSOR 

.U 



DELAY1 
DLAY1 



JOY2 



LR 
GET 



02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 CLOOP2 

02180 

02190 

02200 

02210 

02220 

02230 FBUTT 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 GETL1 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 GETL2 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 GETL3 

02760 

02770 

02780 

02790 

02800 

02810 



LEAU 


32. U 


DOWN 1 BYTE 


DECB 






BNE 


CLOOP1 




LDX 


#$2000 




LEAX 


-l.X 




BNE 


DLAY1 




LDU 


8YTE1 


REPLACE GRAPHICS 


LDX 


//CARRAY 




LDB 


#8 




LDA 


.X+ 




STA 


,u 




LEAU 


32. U 





DECB 
BNE 

LDA 

CMPA 

BEQ 

CMPA 

BEQ 

JSR 

LDA 

LSRA 

STA 

LOB 

PSHS 

LSLB 

ADDB 

STB 

LDA 

SUBA 

CMPA 

BLO 

STA 

LDB 

SUBB 

CMPB 

BLO 

STB 

LDU 

LDX 

LDB 

INCB 

LDA 

STA 

LDA 

STA 

DECB 

BNE 

LEAU 

LDB 

DECB 

LEAU 

LDA 

STA 

ORA 

STA 

DEC8 

BNE 

LEAU 

LDB 

INCB 

LDA 

STA 

LDA 

STA 

LEAU 

DECB 

BNE 



CL00P2 

$FF00 F/B PUSHED? 

#255 

JOY1 

#127 

JOY1 

[$A00A] YES 

$15A NEW X LOCATION 

HORIZ2 

$15B NEW Y LOCATION 



.S+ 

VERT2 

HORIZ2 
HORIZ1 
#3 

JOY2 
ACROSS 
VERT2 
VERT1 
#3 
JOY2 
DOWN 
BYTE1 
//ARRAY2 



AT LEAST 3 BYTES LONG 



ACROSS TOP BORDER 



.U 
,X+ 

#255 
.U+ 

GETL1 

-l.U 
DOWN 

32. U 

.U 

.x+ 

#3 
.U 

GETL2 

32. U 
ACROSS 

.U 

.x+ 

#255 
.U 

-l.U 

GETL3 



GET GRAPHICS 
REPLACE WITH RED 

RIGHT SIDE 

JUST RIGHT SIDE RED 
BOTTOM BORDER 
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02820 














03580 


LDB 


#32 






02830 




LEAU 


l.U 


LEFT 


SIDE 




03590 


MUL 








02840 




LDB 


DOWN 








03600 


ADDA 


$BA 






02850 




DECB 










03610 


TFR 


D.X 






02860 


GETL4 


LEAU 


-32. U 








03620 


LDB 


HORZ 






02870 




LDA 


.U 








03630 


LSRB 








02880 




STA 


.x+ 








03640 


LSRB 








02890 




ORA 


#$C0 


JUST 


LEFT 


SIDE RED 


03650 


ABX 








02900 




STA 


,u 








03660 


LDA 


HORZ 






02910 




DECB 










03670 


ANDA 


#3 






02920 




BNE 


GETL4 








03680 


LDU 


#PTABLE 




02930 














03690 


LDA 


A.U 






02940 


DELAY2 


LDX 


#$2000 








03700 


TFR 


A.B 






02950 


DLAY2 


LEAX 


-l.X 








03710 


COMA 








02960 




BNE 


DLAY2 








03720 


ANDA 


.X 






02970 




LOU 


BYTE1 








03730 


ANDB 


$85 


NEW COLOR 




02980 




LDX 


#ARRAY2 








03740 


PSHS 


B 






02990 














03750 


ORA 


.S+ 






03000 


PUT 


LDB 


ACROSS 


REPLACE 


03760 


STA 


.X 






03010 




INCB 










03770 CONT 


LDA 


VERT 






03020 


PUTL1 


LDA 


.X+ 








03780 


INCA 








03030 




STA 


.u+ 








03790 


CMPA 


#191 






03040 




DECB 










03800 


BLS 


REL2 






03050 




BNE 


PUTL1 








03810 


LDB 


HORZ 






03060 














03820 


INCB 








03070 




LEAU 


-l.U 








03830 


CMPB 


#127 






03080 




LDB 


DOWN 








03840 


BLS 


REL1 






03090 




DECB 










03850 


CLR 


$FFDE 


LOW RAM 




03100 


PUTL2 


LEAU 


32. U 








03860 


ANDCC 


#$AF 






03110 




LDA 


.X+ 








03870 


RTS 








03120 




STA 


,U 








03880 NUMBER RMB 


1 






03130 




DECB 










03890 PTABLE FDB 


$C030 






03140 




BNE 


PUTL2 








03900 


FDB 


$0C03 






03150 














03910 










03160 




LEAU 


32. U 








03920 


END 


START 


/«\ 




03170 




LDB 
INCB 
LDA 
STA 


ACROSS 


















03180 
03190 
03200 












PUTL3 


.x+ 

.u 








CORRECTIONS 








03210 




LEAU 
DECB 
BNE 


-l.U 

PUTL3 


















03220 
03230 


"Turn of the Screw" (August 1990 


. Page 48): The pin 




03240 














number for E on the CoCo bus in Table 2 is incorrect. 




03250 




LEAU 


l.U 








E appears on the CoCo bus on Pin 6. not Pin 16 as 




03260 




LDB 

DECB 

LEAU 


DOWN 








shown in the table. Also, the -RSTpin should be listed 




03270 
03280 


PUTL4 


-32. U 








in Table 2 on Pin 1 of the 


MEB bu 


s and Pin 5 of the 




03290 




LDA 


.X+ 








CoCo bus. The corrected table is i 


hown below: 




03300 




STA 


,U 


















03310 




DECB 










Pin 


MEB 




CoCo 




03320 
03330 




BNE 


PUTL4 








Name 


Pin# 




Pin# 




03340 




LDA 


$FF00 


RELEASE 


F/B? 












03350 




CMPA 


#254 








DO 


5 




10 




03360 




LBEQ 


JOY2 








Dl 


6 




11 




03370 




CMPA 


#126 








D2 


7 




12 




03380 
03390 




LBEO 


JOY2 








D3 


8 




13 




03400 


DONE 


JSR 


[$A000] 


YES 






D4 


9 




14 




03410 




BEQ 


DONE 








DS 


10 




15 




03420 




RTS 










D6 


11 




16 




03430 


ARRAY2 


RMB 


1 








D7 


12 




17 




03440 
03450 




ORG 


$7A00 








AO 


3 




19 




03460 


RECOL 


LDY 


#$8000 


IN HIGH 


Al 


4 




20 




03470 




ORCC 


#$50 








A2 


17 




21 




03480 




CLR 


$FFDF 


HIGH 


RAM 




R/*W 


15 




18 




03490 




CLRB 










E 


•y 




6 




03500 


REL1 


STB 


HORZ 














03510 




CLRA 










*CE 


13 
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03520 


REL2 


STA 


VERT 








*RST 


1 




5 




83530 




LDA 


,Y+ 


GET 1 


1EXT 


COUNT 


+5V 


16 




9 




3540 

83550 




CMPA 
BNE 


NUMBER 
CONT 


IS IT ONE 
NO 


WE WANT? 


GND 


14 




33 




83560 




LDA 


#191 


YES 
















83570 




SUBA 


VERT 
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novices niche 



Financial/Home Help 



4K 



Bank Account 

by William W. Coolman 

This is a simple program to balance 
your checkbook in the manner suggested 
on the back of most bank statements. The 
program gives you a choice of running it 
on any Color Computer. If you are using 
a CoCo 1 or 2, the screen appears as 
usual. If you have a CoCo 3. the screen 
changes to a black background and you 
see true lowercase on the screen. 

It seems as if everyone has a bank 
program, but most do not give you a 
choice of black or green screen with true 
lowercase. These additions are notewor- 
thy and I encourage you to experiment 
with them in your own programs. 

Use Bank to balance your check regis- 
ter. Then if your book does not agree with 
CoCo. print it on any printer. I use a DMP- 
1 10, but the program should work with 
most any other printer. 

If you choose CoCo 3. you'll need to 
press the Reset button and re-run the 
program to get back to the Choice menu 
and wash the black off the screen. 

The Listing: BANK 

1 'BANK ACCOUNT 

2 "WRITTEN BY WILLIAM W. COOLMAN 

3 'COPYRIGHT FEBRUARY 1991 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 
10 PRINT 

20 PRINT" /////// 
30 PRINT" BANKING 
40 PRINT" II llll I 
50 PRINT:PRINT"NAME THE COMPUTER 
YOU ARE USEING" 
60 PRINT:PRINT" 1-C0C0 1 OR 2 
70 PRINT:PRINT" 2-C0C0 3 
80 PRINT 

90 INPUT" TYPE A NUMBER" :U 
100 ON U GOSUB 140.930 
110 PRINT 
120 PRINT 

130 REM...MARK/BBB.A 
140 PRINT" BANKING 
150 PRINT" I II II II I 
160 PRINT 

170 PRINT:PRINT"1-BALANCE CHECK 
BOOK" 

180 PRINT:PR1NT"2-PRINT OUT REGI 
STER" 
190 PRINT 
200 INPUT" TYPE A NUMBER" ;H 



210 ON H GOTO 220.660 

220 CLS 3 

230 INPUT-BALANCE": 8 

240 CLS 3 

250 PRINT 

260 PRINTTAB(15)"total-"B 

270 PRINT 

280 PRINT: PRINT" 1-checks" 

290 PRINT: PRINT" 2-depos1ts" 

300 PRINT:PRINT" 3-checks out" 

310 PRINT:PRINT" 4-bank stateme 

nt" 

320 PRINT:PRINT" USE zero BAC 

K TO MENU" 

330 PRINT 

340 INPUT" TYPE A NUMBER" :N 

350 ON N GOTO 390.450.500.550 

360 PRINT 

370 PRINT TAB(15)"tota1-"B 

380 PRINT 

390 INPUT"CHECK-";A 

400 B-B-A 

410 IF A-0 GOTO 240 

420 PRINTTAB(15)"total-"B 

430 GOTO 390 

440 PRINT 

450 INPUT"DEPOSIT-";C 

460 IF C-0 GOTO 240 

470 B-B+C 

480 PRINT TAB(15)"total-"B 

490 GOTO 450 

500 INPUT-CHECKS 0UT-":K 

510 IF K-0 GOTO 240 

520 L-L+K 

530 PRINT TAB(15)L 

540 GOTO 500 

550 INPUT-STATEMENT-" ;M 

560 IF M-0 GOTO 240 

570 R-M-L 

580 PRINT-CHECKS 0UT"TAB(12)L 

590 PRINT-BANK B00K"TAB(11 )R 

600 IF R-M-L THEN PRINT TABU5)" 

correct" 

610 PRINT 

620 PRINT 

630 INPUT"hit <enter> back to me 

nu";Y 

640 IF Y-0 THEN GOTO 240 

650 PRINT 

660 INPUT"MONTH";DJ 

670 INPUT"YEAR":F 

680 PRINT#-2."DATE "D$:F 

690 INPUT"BALANCE":B 

700 PRINT#-2."LAST MONTH'S BALAN 

CE ":B 

710 PRINT#-2. "CHECKS 

TOTAL" 
720 PRINT"USE ZERO TO CHANGE" 
730 PRINT 

740 PRINT TAB (15) "TOTAL" 
750 PRINT-CHECKS" 



760 PRINT 

770 INPUT"CHECK-":A 

780 PRINT//- 2." CHECK" 

:A 

790 B-B-A 

800 IF A-0 GOSUB 840 

810 PRINTTAB(15)B 

820 PRINT*- 2. "BALANCE ": 

B 

830 GOTO 770 

840 PRINT 

850 INPUT"DEPOSIT-":C 

860 PRINT#-2." DEPOSI 

T";C 

870 IF C-0 GOTO 770 

880 B-B+C 

890 PRINT TAB(15)B 

900 PRINT#-2." 

-";B 
910 GOTO 850 
920 PRINT 

930 P0KE&H95C9.&H7F:P0KE&HFF33.& 
H10 

940 REM black screen-green type 
950 SCREEN 1.0 
960 GOTO 140 
970 REM... PROG... BANK 
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FROM T&D SUBSCRIPTION SOFTWARE 



T&D SUBSCRIPTION SOFTWARE HAS ACCUMULA TED OVER 
1.000 PUBLIC DOMAIN PROGRAMS FOR THE COL OR COMPUTER. 

WE ARE SELLING 630 OF THE BEST. JUST THE GOOD STUFF ! 






" e <^ 



Music 1-7 



M1 - 
M2- 
M3- 
M4- 
M5- 
M6- 
M7- 



8 Utilities & 8 Songs 
17 Musica Files \ b __j_- 
16 Musica Fites SftS*" 
16 Musica Files / Mustca 
25 Orchestra Files 
23 .Bin Files Ready To Hun 
23 .Bin Files Ready To Run 




ADVENTURES 1,2 

Each Disk/Tape Contains 
9 Great Adventures 
Ready To Run 

Order A1 Or A2 





TELECOMMUNICATIONS 

T1 - Haysae, Kerm'it, Mlkeyterm, TeleTerm 
T2 - Cobbs BBs Terminal Package 
T3 - GETERM Communications 



^1 

eTerm 



EDUCATION 1-4 



E1 - 12 Programs For Young Kids 

E2- 12 Programs For High School Kids 

E3- 11 Programs Teaching The Ccco'S Commands 

E4 - 5 Graphics Programs About Australia 



HOME MANAGEMENT 1-4 

■ 12 Programs Each Disk/Tape • 

H1 - Checkbook, Loan, Word Processor, 
H2 • Cash Journal, Invest, Maillist, * 
H3 • Lite, Database, Stocks, * 
H4 - Spelling Fix, Spelling Checker, ♦ 




GRAPHICS 1-14 

GR1 - Atlanta, Cube, Space, + 
GR2 - Objects, Wargame, Worldmap, 
GR3 - 9 Coco 3 Graphic Programs 
GR4 - 22 Coco Max Pictures 
GRS - 22 Coco Max Pictures 
GR6 - 22 Coco Max Pictures 
GR7 - 1 5 Coco Max Pictures 
GRS - 22 .Bin Pictures 
GR9-22 .Bin Pictures 
GR10 - 14 Large .Bin Pictures 
GR11 - 8 Mge Pictures 
GR1 2 • Coco Max 3 Pictures 
GR13 - Macpaint Graphic Editor 
GR14 - 5 Macintosh Pictures 

•• &* Our Ad Containing 250 Gnptiic PKtulm EJmvtm* In ThMMagmito* 





UTILITIES 1-8 

■ 12 Programs Each, 1-4 Require Disk • 

Ul - Backup 35, Basicmap, Timer, Tape-to-Disk, ♦ 
U2 - Customize, D'iskTest, MasterDisk, Offset, ♦ "" 
U3 - View 64, DiskAid, Disk Library, Atari, + 
U4 - AutoBoot, MacPicture, StateLog, UniBack, + 
U5 - Disassembler. Graph, PalntPot, Squeeze, ♦ 
U6 - Clock, Llisi 32, , MiniDos. Pixcomp, * 
U7 - Head Print With 30 Mini Pictures 
U8 - Fig Forth Language With Tutorial 




GAMES Ml 

• Each Disk/Tape Contains 12 Programs • 

GA1 - 3D Tic Tac, Missile, Poker, Tycoon, + 
GA2 - Amazing, Balloons, Motor Jump, Slots, < 
GA3 - Battleship, Golf, Lander, Zero G. ♦ 
GA4 - ABM, LunarWorld, Protect, Subchase, * 
GA5 • Blackjack, Lazer, Tipan, Utopia, ♦ 
GA6 - Kings, Maze, Shuttle, Tempest, ♦ 
GA7 - Chess, City, Lite, StarTrek, + 
GAS - Chute, Germ, Hurkle, Lunar, ♦ 
GA9 - Civil War, Go-Fish, Stock, UFO Maze, ♦ 
GA10 - Cave, HILow, Scramble, Word Hunt, ♦ 
GA11 - Bkxythms, Craps 3, Gunner, Martians, t 




IB1IY ALL 53 

MSKS/TAI'ES FOR 

ONLY $145.00 ! 





MAIL TO: 

T&D Subscription Software 

2490 Miles Standish Drive 

Holland, Michigan 49424 

(616)399-9648 

Call or write lor a FREE catalog ! 



PRICES: 
1- 5 disks/tapes....$6.00 each 

6 or more $5.00 each 

All 53 disks/tapes $145.00 



Name 

Address- 



CIRCLE ISSUES DESIRED 




MasterCard 



City. 



. State- 



Zip- 



Credit Card (L 



• WE SEND 1 ST CLASS - NO CHARGE • 
• PERSONAL CHECKS WELCOME • 



Expires. 



TOTAL AMOUNT $_ 
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Please turn to pages 13 S 71 lor our Subscription Software! 



Wishing Well 



Visualizing Fractions 3 



by Fred B. Scerbo 

Contributing Editor 



If you have an idea for the "Wishing 

Well.'' submit it to Fred clo the rain- 
how. Remember . keep your ideas spe- 
cific, and don't forget this is basic. All 
programs resulting from your wishes 
are for your use. hut remain the prop- 
erty of the author. 



Last month I introduced the latest 
installment in our educational 
series on math skills titled Visual- 
izing Fractions 2. VISFRAC2 is very 
different from some of our recent 
math offerings since it introduces the rela- 
tionships between different fractions. The 
graphics in that program are also very dif- 
ferent in that they combine several drawing 
strings with the PAINT command to give a 
dramatic demonstration of the pie-chart 
representation of fractions. 

This month we'll look at VISFRAC3. a 
program to help students become more 
familiar with the decimal versions of all the 
fractions with denominators between 2 and 
9. By using the oppposites shell, users can 
now easily review all of these relationships 
and then quiz their recall in two different 
ways. 

Changes 

Before it could be used in this program, 
the opposites shell had to undergo some 
major changes. Those of you familiar with 
that screen formal will recall that it allows 
"sets" to be quizzed while showing three 



Fred Scerbo is a special needs instructor 
for the North Adams Public Schools in 
North Adams. Massachusetts. He holds a 
master's in education and has published 
some of the first software available for the 
Color Computer through his software firm. 
Illustrated Memorv Banks. 



choices on the screen with one box (in the 
upper-left comer of the screen) showing 
the item to match in reverse graphics. This 
may have been suitable for other uses, but 
the reverse-graphics box does not serve our 
purposes here. Each fraction is usually 
represented with the black sections indicat- 
ing which part of the fraction is the numera- 
tor. Therefore, in the fraction l h, two seg- 
ments would be black and one segment 
would be white. But if we print this graphic 
in reverse, the user might incorrectly think 



the fraction shown is '/:• instead ofVa since 
the black and white would be reversed. 

This problem was solved by changing 
the upper-left box to a white box ratherthan 
a black, reversed-graphics box. The pro- 
gram still works since at any one time only 
one fraction appears on screen with three 
decimal choices, or one decimal with three 
fraction choices in the reversed quiz. This 
still carries over to the screen inversion 
which occurs if the user gives the wrong 
response. The inverted screen has been 





32K Extended ^ 




\/ 


/ 

25 80 


565 81 1090 14 






w 


55 50 


610 227 1130 33 

660 106 1170 117 










85 255 




125 152 


710 192 1210 62 






150 40 


760 117 1245 127 






205 252 


805 98 1280 103 






255 140 


840 18 1310 103 






305 221 


880 134 1340 168 






355 22 


920 235 1370 181 






405 104 


950 142 1405 40 






445 61 








480 207 


1020 41 1505 199 






515 41 


1050 226 END 9 




The Listing: VISFRAC3 








1 RFM* ****** **'**"***** 


************ 


.92.93 




2 REM* VISUALIZING FRACTIONS 3 * 


25 DATA21...24.26..21.21..21.21. 


3 REM* COPYRIGHT (C) 1990 * 


.20. 20.. 26. 20.. 26. 21.. 21.. 26. 26. 


4 REM* BY FRED B. SCERBO * 


21. .26 85 


5 REM* 60 HARDING AVE * 


30 DATA21. . .18.26. .21.21.16.21.2 


6 REM* NORTH ADAMS. MA 01247 * 


1 26. ..26. 21. .21. .26. 21. 21.. 


7 orM*************************** 


26 85 


10 CLEAR800 


35 DATA21.28.28.26.30.29.28.21.2 


15 CLS0:PRINTSTRING$(32.172):STR 


8,29.21 26. ..26.21. .21. .26.2 


ING$(32.204);:FORI-1TO 224 :READ 


0.23. .28.29. .92.93 


A:PRINTCHR$(A+160);:NEXT 


40 DATA21 26. 21. .21. .21.21... 


20 DATA29.28.28.26.30.28.29.21.2 


..26. .,26, 21. .21. .26. .31. ..21... 


8.29.21.28.29.21.28.30.29.20.30. 


85 


21.28.29.20.30.18.29.24.30.29.84 


45 DATA21 26.20.26.21 . .21 .21 . 
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corrected so that the Hashing screen effect 
still occurs without destroying the flow of 
the program. 

Another major change was also needed 
for this program to operate properly. Since 

ig Option C (Reverse quiz) requires 
having more than one fraction-pie chart 
drawn, the program needed a number of 

. .THEN statements to compensate for 
these changes. Therefore, the program can 
now tell the difference between the types of 
graphics it must draw, and it draws a pie 
chart only when needed. 

The third and final change comes in the 

gram's ability to generate the random 
choices. Since some fractions have the same 

imal values (e.g. both '/: and 1 /a are 0.5), 
the program needed some way of prevent- 
ing the same answer from appearing more 
than once in one of the three boxes for 
multiple choice. This is accomplished by 



comparing the actual values as the numbers 
are picked. This prevents any duplication 
and the problems that might result from it. 

Using the Program 

When using V1SFRAC3. you can go to the 
menu by pressing ENTER after the title card. 
Selection A. Review Fractions, allows you 
to go through all choices and their matches 
by simply pressing enter. Options B and C 
are the same quiz with the order changed. 
Selection B matches three decimals to one 
fraction while C lets you match three frac- 
tions to one decimal. 

The choice you must match with is in the 
upper-left corner. The remaining three 
boxes are your choices. You need only 
press the space bar to move the cursor to 
your choice. Pressing ENTER records your 
choice. A correct choice causes the pro- 
gram to show the match, from which you 



.21. ..26. ..26, 21. .21. .26. .21. .18 

.21. ..85 

50 DATA28.24..20.28..28.20..20.2 

0.28. 28.. 20. 28.. 20. 28. 20. 28. 28. 2 

0.28. .28.24.28.28,84.92.92 

55 PRINTSTRING$(32.195);STRING$( 

32.163): 

60 PRINT@388," VISUALIZING FRACT 

IONS 3 ": 

65 PRINTO420." BY FRED B.SCER 

BO "; :PRINT@452." COPYRIGH 

T (C) 1990 ": 

70 X$-INKEY$:IFXK>CHR$(13)THEN7 

e 

75 DIM P$(44.4).A$(6).A(44).N(44 

).B<4).C(4),D(4).E(4).F(4).G(44) 

80 F0RI-1T03:READ C( I ) ,D( I ) . E( I ) 

,F( I):NEXT:F0RI-1T06:READA$(I):N 

:XT:F0RI-1T044:READP$(I.1).P$(I. 

2).P$(I.3):NEXT:F0RI-1T044:READG 

(I):P$(I.4)-"BR":NEXT 

85 C0L0R1 .0: F0RI-1T09: P$( I . 1 )-0S 

fP$(I.l):NEXTI 

90 REM TITLE 

:LS:PRINTSTRINGJ(64."-")::PRI 

8. "VISUALIZING FRACTIONS 3": 

?RINTSTRING$(64,"-")::PR1NT@198. 

REVIEW FRACTIONS" :PRINT@262. 
■3) QUIZ GRAPHICS":PRINT@326."C) 

REVERSE QUIZ" 
!00 PRINT@388."«<SELECT YOUR CH 
0ICE»>" 

PRINT:PRINTSTRING$(32."-"): 

<$-INKEY$:X-RND(-TIMER):IFX$ 
--A"THEN505ELSEIFXS-"B"THEN115EL 

■$-"C"THEN1510ELSE110 

CLS0:PMODE0.1:PCLS1 
19 LINE(0.0)-(254. 170). PRESET. B 
i LINE(6.4)-(122. 82). PRESET. B 

LINE(128.4)-(248. 82). PRESET. 



135 LINE(6.86)-(122. 164). PRESET. 

B 

140 LINE(128.86)-(248.164).PRESE 

T.B 

145 DRAWBM26.188C0NU10R10NU10BR 

6R10U6L10U4R10BR6NR10D4NR10D6R10 

BR12BU6NE4D2F4BR6R10U6L10U4R10BR 

6ND10R10D4NL10BR6NR10D6U10R10D10 

BR6NR10U10R10BR6NR10D4NR10D6R10B 

R10U10NL4R10D4NL10D6NL14BR6U10R1 

0D4NL10D6BR6U10R10D4L10R4F6BR6E4 

U2H4" 

150 DATA130.6.246.80.6.86.120.16 

2.130.86.246.162 

155 PAINT(2.2).0.0:PCOPY1TO3 

160 PMODE0.4:PCLS1 

165 LINE(0.0)(254. 170). PRESET. B 

F 

170 LINE(6.4)-(122.82).PSET.B 

175 LINE(128.4)-(248,82).PSET,B 

180 LINE(6.86)-C122.164).PSET.B 

185 LINE(128.86)-(248.164).PSET. 

B 

190 PCOPY4TO2:PMODE0.1:SCREEN1.1 

195 DATA"BM2.8C0S4"."BM130.8C0S4 

" . "BM2 . 90C0S4" . "BM130 . 90C0S4" , "B 

M2.48C0S4"."BM130.48C0S4" 

200 F0RI-1T044 

205 A(I)-RND(44):IFN(A(I))-1THEN 

205 

210 N(A(1))-1:NEXTI:F0RY-1T044:C 

OLOR1.0 

215 F0RI-2T04 

Z2B B(I)-RND(3)+1:IFN(B(I))-0THE 

N220 

225 N(B(1))-0:NEXTI:FORI-1TO4:N( 

I)-1:NEXT 

230 B-RND(44):IFB-A(Y)THEN230 

235 IFG(B)-G(A(Y))THEN230 

240 C-RND(44):IFC-8 OR C-A((Y))T 

HEN240 



may advance by again pressing ENTER. An 
incorrect choice causes the screen to flash, 
and the program lets you try again. 

Pressing @ shows your score. You may 
resume where you left off by pressing C to 
continue. If you press C after the quiz is 
over, the program simply restarts. 

That's all it takes to use V I SFRAC3. You 
will find it is very useful when learning 
decimal values, and it generates a better 
understanding of fractions in general. 

Conclusion 

At least one more variation on these 
fraction skills (involving changing frac- 
tions to percentages) is forthcoming. We"ll 
call that one V I SFRAC4. If you think of other 
tangents to pursue with these skills or top- 
ics, drop me a line and cast your wish into 
the "Wishing Well." Who knows what we 
might discover? □ 



245 IFG(C)-G(A(Y))THEN240 

250 DRAW A$(1):DRAWP$(A(Y).1):IF 

NG-1THEN265 
255 CIRCLE(60.42).34.0..9:PAINT( 
56. 20). 0.0 

260 DRAW A$(1):DRAW"C1":DRAWP$(A 
(Y).2) 

265 DRAW A$(B(2)):DRAWP$(B.3) 
270 DRAW A$(B(3)):DRAWP$(C3) 
275 DRAW A$(B(4)):0RAWPS(A(Y).3) 
280 IF NG-0THEN315 
285 CIRCLE(188.42).34.0..9:PAINT 

(184. 36). 0,0 

290 CIRCLE(60.124).34.0..9:PAINT 

(56. 120). 0.0 

295 CIRCLE(188.124),34.0..9:PAIN 

T( 184. 120), 0.0 

300 DRAW A$(B(3))+"C1":DRAWP$(C. 

4) 

305 DRAW A$(B(4))+"C1":DRAWP$(A( 

Y).4) 

310 DRAW A$(B(2))+"C1":DRAWP$(B. 

4) 

315 COLOR1.0 

320 Z-0 

325 PMODE0.4 

330 DRAW A$(1)+"C1":DRAWP$(A(Y). 

1 ) : IF NG-1THEN345 

335 CIRCLE(60.42).34.1..9:PAINT( 

56. 20). 1.1 

340 DRAW A$(1):DRAW"C0":DRAWP$(A 

(Y),2) 

345 DRAW A$(B(2))+"C1":DRAWP$(B. 

3) 

350 DRAW A$(B(3))+"C1":DRAWP$(C. 

3) 

355 DRAW A$(B(4))+"C1":DRAWP$(A( 

Y).3) 

360 IF NG-0THEN395 

365 DRAW A$(B(2))+"C1":DRAWP$(B. 

4) 
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Submitting 

Material 
To Rainbow 



Contributions to mi kmmiuw are wel- 
come from everyone. We like to run a 
variety of programs that are useful, help- 
ful and fun for other CoCo owners. 

WHAT TO WRITE: We are inter- 
ested in what you want to tell our read- 
ers. We accept for consideration any- 
thing that is well-written and has a prac- 
tical application for the Tandy Color 
Computer. If it interests you. it will proba- 
bly interest lots of others. However, we 
vastly prefer articles with accompany- 
ing programs that can be entered and run. 
The more unique the idea, the more the 
appeal. We have a continuing need for 
short articles with short listings. These 
are especially appealing to our many 
beginners. 

FORMAT: Program submissions 
must be on tape or disk, and it is best to 
make several saves, at least one of them 
in ASCII format. We're sorry, but we do 
not have time to key in programs and 
debug our typing errors. All programs 
should be supported by some editorial 
commentary explaining how the pro- 
gram works. We also prefer that editorial 
copy be included in ASCII format on the 
tape or disk, using any of the word proc- 
essors currently available for the Color 
Computer. Also, please include a double- 
spaced printout of your editorial mate- 
rial and program listing. Do not send text 
in all capital letters; use upper- and 
lowercase. 

COMPENSATION: We do pay for 
submissions, based on a number of crite- 
ria. Those wishing remuneration should 
s.' state when making submissions. 

For the benefit of those wanting more 
detailed information on making submis- 
sions, please send a self-addressed, 
stamped envelope (SASE) to: Submis- 
sion Guidelines, mi kainbow. The Fal- 
soft Building. P.O. Box 385. Prospect. 
KY 40059. We will send you compre- 
hensive guidelines. 

Please do not submit material cur- 
rently submitted to another publication. 



370 DRAW A$(B(3))+"C1":DRAWP$(C. 

4) . 

375 DRAW A$(B(4))+"C1":DRAWP$(A( 

Y).4) 

380 C1RCLE(188.42).34.1..9:PAINT 

(184. 34), 1.1 

385 CIRCLE(60.124).34.1..9:PAINT 

(56. 116). 1.1 

390 CIRCLEC 188.124) .34.1 . .9:PAIN 

T(184.116).l.l 

395 PMODE0.1:SCREEN1.1 

400 LINE(8.6)-(L20.80).PSET.B 

405 IF Y>44THEN RUN 

410 X$-INKEY$:IFX$-" "THEN420ELS 

EIFX$-"@"THEN1445 

415 COLOR1.0:LINE(8.6)-(120.80). 

PRESET. B:GOTO400 

420 Z-Z+1:IFZ-4THENZ-1 

425 COLOR1.0:LINE(C(Z).D(Z))-(E( 

Z).F(Z)).PSET.B 

430 X$-INKEY$: IFXS-" "THEN420ELS 

ElFX$-CHR$(13)THEN440ELSEIFX$-"@ 

"THEN1445 

435 COLOR1.0:LINE(C(Z).D(Z))-(E( 

Z).F(Z)). PRESET, B:G0T0425 

440 IFZ+1-B(4)THEN450 

445 NW-NW+1:FORK-1TO5:PMODE0.4:S 

CREEN1.1:SOUND10.3:PMODE0.1:SCRE 

EN1.1:S0UND1.3:NEXTK:G0T0425 

450 NC-NC+1:PMODE0.4:PCLS1:LINE( 

0.40)-(256.126).PRESET.B:LINE(6. 

44) -(124. 122). PRESET. B:L1NE( 130. 

44)-(248.122).PRESET.B:PAINT(2.4 

2). 0.0 

455 DRAW A$(5)+"S4":DRAWP$(A(Y). 

1):IFNG-1THEN465 

460 CIRCLE(60.82).34.0..9:PAINT( 

54. 60). 0.0 

465 DRAWA$(5)+"C1":DRAWP$(A(Y),2 

) 

470 DRAW A$(6):DRAWP$(A(Y).3):IF 

NG-0THEN480 

475 CIRCLE(188.82).34.0,.9:PAINT 

(170. 80). 0.0 

480 DRAWA$(6)+"C1":DRAWP$(A(Y).4 

) 

485 SCREEN1.1 

490 XS-INKEY$:IFX$OCHR$(13)THEN 

490 

495 PMODE0.1 

500 PC0PY3T01:SCREEN1.1:PC0PY2T0 

4:NEXTY:G0T01445 

505 PMODE0.2:PCLS1:SCREEN1.1:LIN 

E(0.40)-(256.126).PRESET.B:LINE( 

6.44)-(124.122) . PRESET . B : L I NE ( 13 

0.44)-(248.122).PRESET.B:PAINT(2 

.42). 0.0 

510 F0RI-1T044:DRAW A$( 5)+"S4" :C 

IRCLE(60.82).34.0..9:DRAWPS(I.l) 

:PAINT(54.60).0.0:DRAWA$(5)+"C1" 

:DRAWP$(I.2) 

515 DRAWA$(6)+"C0":DRAWP$(I.3):D 

RAWA$(6):DRAWP$(I.4) 

520 X$-INKEY$:IFX$OCHR$(13)THEN 

520 

525 COLOR1.0:LINE(8.46)-(122.120 

J.PSET.BF: LI NE( 132. 46) -(246.120) 

,PSET.BF:NEXTI 

530 RUN 

535 REM ONE HALF 

540 DATA"BR58BD34NU28ND28BR44BD1 

2NR8U4R8U4L8BU4L2R12L6BU4U8" 

545 DATA 

550 DATA"BR34BD46S8R8U12L8D12BR1 



2RBR4R8U6L8U6R8" 

555 REM TWO HALVES 

560 DATA 

565 DATA"BR58B034NU28ND28BR44BD1 

2C0NR8U4R8U4L8BU4L2R12L6BU4R4L8U 

4R8U4L8" 

570 DATA"BR36BD46S8R4L2U12NGBR6B 

D12RBR4R8U12L8D12" 

575 REM ONE THIRO 

580 DATA"BR58BD34NU28M-26.+15M+2 

6.-15M+26.+15BR20BU2R8U4NL8U4L8B 

U4L2R12L6BU4U8" 

585 DATA 

590 DATA"BR14BD46S8R8U12L8D12BR1 

2RBR3R7U6NL7U6NL7BR4R7D6NL7D6NL7 

BR4R7U6NL7U6L7" 

595 REM TWO THIRDS 

600 DATA"BR58BD34NU28M+26 .+158R2 

0BU2R8U4NL8U4L8BU4L2R12L6BU4R4L8 

U4R8U4L8" 

605 DATA ,, BR588D34M-26.+15" 

610 DATA"BR12BD46S8R8U12L8D12BR1 

2RBR4NU12R8U6NL8BU6NL8BR4D12R8U6 

L8U6R8BR4ND2R8D12" 

615 REM THREE THIRDS 

620 DATA 

625 0ATA"BR58BD34NU28M-26.+15M+2 

6.-15M+26.+15BR20BU2C0R8U4NL8U4L 

8BU4L2R12L6BU4L4R8U4NL8U4L8" 

630 DATA"BR368D46S8R4L2U12NGBR6B 

D12RBR4R8U12L8D12" 

635 REM ONE FOURTH 

640 DATA"BR58BD34NU28ND28NL32R32 

BR22BD12U8D4L8U4BU4L2R12L6BU4U8" 

645 DATA 

650 DATA"BR20BD46S8R8U12L8D12BR1 

2RBR4NR8U6R8U6NL8BR4NR8D6R8D6L8" 

655 REM TWO FOURTHS 

660 DATA"BR58BD34NU28ND28R32BR22 

BD12U8D4L8U4BU4L2R12L6BU4R4L8U4R 

8U4L8" 

665 DATA"BR58BD34L32" 

670 DATA"BR34BD46S8R8U12L8D12BR1 

2RBR4R8U6L8U6R8" 

675 REM THREE FOURTHS 

680 DATA"BR58BD34NU28R32BR22BD12 

U8D4L8U4BU4L2R12L6BU4L4R8U4NL8U4 

L8" 

685 DATA"BR58BD34NL32D28" 

690 DATA"BR20BD46S8R8U12L8D12BR1 

2RBR4BU12ND2R8D12BR4R8U6L8U6R8" 

695 REM FOUR FOURTHS 

700 DATA 

705 DATA"BR58B034NU28ND28NL32R32 

BR22BD12C0U8D4L8U4BU4L2R12L6BU4B 

R4U8D4L8U4" 

710 DATA"BR36BD46S8R4L2U12NGBR6B 

D12RBR4R8U12L8D12" 

715 REM ONE FIFTH 

720 DATA"BR58BD34NU28M-30. -10M+3 

0.+10M+30.-10M-30.+10NG22NF22BR4 

6BD12R8U4L8U4NR8BU4L2R12L6BU4U8" 

725 DATA 

730 DATA-BR32BD46S8R8U12L8D12BR1 

2RBR4NR8U6R8U6NL8" 

735 REM TWO FIFTHS 

740 DATA"BR58BD34NU28M+30. -10M-3 

0.+10NG22NF22BR46BD12R8U4L8U4NR8 

BU4L2R12L6BU4R4L8U4R8U4L8" 

745 DATA"BR58BD34M-30.-10" 

750 DATA"BR32BD46S8R8U12L8D12BR1 

2RBR4BU12D6R8U6D12" 

755 REM THREE FIFTHS 

760 DATA"BR58BD34NU28M+30.-10M-3 
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0.+10NF22BR46BD12R8U4L8U4NR8BU4L 

2R12L6BU4L4R8U4NL8U4L8" 

765 DATA"BR58BD34M-30.-10M+30.+l 

0G22" 

770 DATA"BR32BD46S8R8U12L8D12BR1 

2RBR4U12NR8D6R8D6NL8" 

775 REM FOUR FIFTHS 

780 DATA"BR58BO34NU28M+30.-10M-3 

0.+10BR46BD12R8U4L8U4NR8BU4L2R12 

L6BU4BR4U8D4L8U4" 

785 DATA"BR58BD34NU28M-30.-10M+3 

0.+10NG22NF22" 

790 DATA"BR32BD46S8R8U12L8D12BR1 

2RBR4U12NR8D6R8NU6D6NL8" 

795 REM FIVE FIFTHS 

800 DATA 

805 DATA"BR58BD34NU28M-30. -10M+3 

0.+10M+30.-10H-30.+10NG22NF22BR4 

6BD12C0R8U4L8U4NR8BU4L2R12L6BU4L 

4R8U4L8U4R8" 

810 DATA"BR36BD46S8R4L2U12NGBR6B 

D12RBR4R8U12L8D12" 

815 REM ONE SIXTH 

820 DATA"BR588034NU28ND28M-26.+l 

5M+52.-30M-26.15M+26.+15M-5Z.-30 

BR70BD28NU4R8U4L8U4NR8BU4L2R12L6 

BU4U8" 

825 DATA 

830 DATA"BR14BD46S8R8U12L8D12BR1 

2RBR5NU12BR5NU12R8U6NL8BU6NL8BR4 

ND2R8D12" 

835 REM TWO SIXTHS 

840 DATA"BR58BD34NU28ND28M-26.+l 

5M+52.-30M-26.15M+26.+15M-26.-15 

BR44BD12NU4R8U4L8U4NR8BU4L2R12L6 

BU4R4L8U4R8U4L8" 

845 DATA"BR58BD34M-26.-15" 

850 DATA"BR14BD46S8R8U12L8D12BR1 

2RBR3R7U6NL7U6NL7BR4R7D6NL7D6NL7 

BR4R7U6NL7U6L7" 

855 REM THREE SIXTHS 

860 DATA-BR58BD34NU28ND28M+26. -1 

5M-26.15M+26.+15M-26.-15BR44BD12 

NU4R8U4L8U4NR8BU4L2R12L6BU4L4R8U 

4NL8U4L8" 

865 DATA"BR58BD34M-26.-15M+26.+l 

5M-26.+15" 

870 DATA"BR34BD46S8R8U12L8D12BR1 

2RBR4R8U6L8U6R8" 

875 REM FOUR SIXTHS 

880 DATA"BR58BD34NU28M+26. -15M-2 
iM+26.+15M-26.-15BR44BD12NU4R 

8U4L8U4NR8BU4L2R12L6BU4BR4U8D4L8 

■■■ 
■-• DATA"BR58BD34ND28M-26.-15M+2 
-15M-26.+15" 

690 DATA"BR12BD46S8R8U12L8D12BR1 

2RBR4NU12R8U6NL8BU6NL8BR4D12R8U6 
6R8BR4ND2R8D12" 

895 REM FIVE SIXTHS 

900 DATA"BR58BD34NU28M+26.-15M-2 

6.15BR44BD12NU4R8U4L8U4NR8BU4L2R 
12L6BU4L4R8U4L8U4R8" 

905 DATA"BR58BD34ND28M-26.-15M+2 
-I5M-26.+15M+26.-15M+26.+15" 
DATA"BR12BD46S8R8U12L8D12BR1 
2RBR4NU12R8U6NL8U6NL8BR4R8D6NL8D 
6HL8BR4R8U6NL8U6L8" 
915 REM SIX SIXTHS 
20 DATA 

DATA"BR58BD34NU28ND28M-26.+l 
2.-30M-26.15M+26.+15M-52.-30 
:3D28C0NU4R8U4L8U4NR8BU4L2R12 
_4R8U4L8D4U8R8" 



930 DATA"BR36BD46S8R4L2U12NGBR6B 

D12RBR4R8U12L8D12" 

935 REM ONE SEVENTH 

940 DATA"BR58BD34NU28M-24. -20M+2 

4.+20M-30.+4M+30.-4M-16.+25M+16. 

-25M+16.+25M-16.-25M+30.+4M-30.- 

4M+24.-20BR28BD32U8L8ND2BU4L2R12 

L6BU4U8" 

945 DATA 

950 DATA"BR14BD46S8R8U12L8D12BR1 

2RBR5NU12BR5BU12D6R8U6D12BR5R8U6 

NL8U6L8" 

955 REM TWO SEVENTHS 

960 DATA"BR58BD34NU28M-30.+4M+30 

.-4M-16.+25M+16.-25M+16.+25M-16. 

-25M+30.+4M-30.-4M+24. -20BR28BD3 

2U8L8ND2BU4L2R12L6BU4R4L8U4R8U4L 

8" 

965 DATA"BR58BD34M-24.-20" 

970 DATA"BR12BD46S8R8U12L8D128R1 

2RBR4NR8U6R8U6NL8BR4ND12R8D6NL8D 

6NL8BR4NR8U12R8BD6NL8D6" 

975 REM THREE SEVENTHS 

980 DATA"BR58BD34NU28M-16.+25M+1 

6.-25M+16.+25M-16.-25M+30.+4M-30 

. -4M+24. -20BR28BD32U8L8ND2BU4L2R 

12L6BU4L4R8U4NL8U4L8" 

985 DATA"BR58BD34M-24. 20M+24.+2 

0M-30.+4" 

990 DATA"BR12BD46S8R8U12L8D12BR1 

0RBR4BU12D6R8U6D12BR4NR8U6R8U6NL 

8BR4ND6R8D6NL8D6" 

995 REM FOUR SEVENTHS 

1000 DATA"BR58BD34NU28M+16.+25M- 

16.-25M+30.+4M-30.-4M+24.-20BR28 

BD32U8L8ND2BU4L2R12L6BU4BR4U8D4L 

8U4" 

1005 DATA"BR58BD34M-24.-20M+24.+ 

20M-30.+4M+30.-4M-16.+25" 

1010 DATA"BR14BD46S8R8U12L8D12BR 

12RBR4R8U6L8U6R8BR4ND2R8012BR6U1 

2" 

1015 REM FIVE SEVENTHS 

1020 DATA"BR58BD34NU28M+30.+4M-3 

0. -4M+24. -20BR28BD32U8L8ND2BU4L2 

R12L6BU4L4R8U4L8U4R8" 

1025 DATA"BR58BD34M-24.-20M+24,+ 

20M-30.+4M+30.-4M-16.+25M+16.-25 

M+16.+25" 

1030 DATA"BR14BD46S8R8U12L8D12BR 

12RBR3BU10U2R8D12BR6U12BR6D6R8U6 

D12" 

1035 REM SIX SEVENTHS 

1040 DATA"BR58BD34NU28M+24. -20BR 

28BD32U8L8ND2BU4L2R12L6BU4NL4R4U 

4L8ND4U4R8" 

1045 DATA"BR58BD34M-24 . -20M+24 ,+ 

20M-30.+4M+30.-4M-16.+25M+16.-25 

M+16.+25M-16.-25M+30.+4" 

1050 DATA"BR12BD46S8R8U12L8D12BR 

12RBR4NU12R8U6NL8U6NL8BR4NR8D6R8 

D6NL8BR3BU10U2R8D12" 

1055 REM SEVEN SEVENTHS 

1060 DATA 

1065 DATA"BR58BD34NU28M-24.-20M+ 

24.+20M-30.+4M+30.-4M-16.+25M+16 

.-25M+16.+25M-16.-25M+30.+4M-30. 

-4M+24.-20BR28BD32C0U8L8ND2BU4L2 

R12L6BU4BR4U8L8D2" 

1070 DATA"BR36BD46S8R4L2U12NGBR6 

BD12RBR4R8U12L8D12" 

1075 REM ONE EIGHTH 

1080 DATA"BR58BD34NU28ND28NL32NR 

32NE22NF22NG22NH22BR44BD12NU4R8U 



. _aKwood Ave. Jackson, 

VISA/MC.MO. checks MI res add 4% tax 

1517)787-3610 $2.50 S/H most orders 

Send LSASE for new CoCo newsletter 

Clubs write we want to hear from you 



MULTIMEDIA 



Combine video, audio. an imat ion , an- 
graphics on CoCo3. Low cost, easy to 
use. sM3 includes manual £. software 
system prices start at under J50+S/H 
)Co3.5l2k.2 disk S/H included $9.95 



Ail full color, H /rear/top/bot feeu 
paper park U builtin serial for dual 
auto port select! or chose the DISTO 
ser/par adapt. With switch for modem 
or second printer, the Citizens have 
Convertable push/pull tractor, more 
GSX-MO W/special GFX'MAX see below! 
New 24pin software for LQ printers! 
All our printers include STAR'MAX. 
NX1020 is the new STAR NX1000 color! 



»-U0 24pinLQ 
"1 9 pinNLQ 
JOa w/Disto 



M79.95+SI2 S/H/I 
J279.95t$J2 S/H/I 
t279.95+$12 S/H/I 



QletG serial/parallel adapter with 
builtin modem switch $44.95+$5 S/H 



mi 

$9. 95 

$12.95 



COLOR $24.95 

clr heat-trans $31.95 



digitize inT3&W.I6. 4096 color - 
from VCR, VIDEO disk, camcorder etc 
near photo quality.RAS'MAX optional 
(see below). 4096 mode requires 512k 
CoCo3 12 8/512k disk $ 199.95+$ 

„ graphics otter Wnat-You-see 
Is-What-You-Get colors. onscreen pre 
view/clr-editing no guessing/ waste 
T-shirt prints, partial prints even 
print double-screen CM3 to fit 8x10 
picture frame single screen tit 5x7 
•MAX software is the BEST, easier! 



aAB°9&X; print BS.W.16 & 4096 clr on 
f5xTOOOTGSX140.DMP240.200GX,CGP-220 
even T-shirt prints of 4096 color 
See GFX'MAX for wallet J. postcard. 
CoCo3 128k disk $24.95 

With RASCAN-2 $14.95 



gT}£ a <&.7. color CM3.MGE.HSCREEN2 etc 
STAR, CITIZEN, DMP-240 & compatables 
also 16 level B&W grayscale driver 
CoCo3. 128k, disk $21.95 



I537°iffij[ special for new 24 wire Li 

Srlnters.New modes/sizes not possable 
/ 9 pin printers. Wallet U Postcard 
Sizes. HSCREEN2.MGE.CM3.IMG GIF etc. 
24pin LQ EPSON color compatables ONLY 
CoCo3, 128k, disk, LQ prt. f 24 . 95 
RAS'MA 



With STAR'MAX or 



■MAX 



$14.95 



M g q jIK Like STAR'MAX. for CGP-220 
CoCo37l28k. disk $18.95 



: PMODE3/41B&W or CLR , STAR 
DHP-240 and compatables. 
CoCol . 2 ; 3 disk $18.95 



Create SPRITES.wri te your own video 
games in BASIC! Adds 18 new BASIC & 
easy to use commands. Complete with 
extensive manual & demo game wrlten 
in Sprite-BASIC on the disk. Never 
done before on any CoCo. Fantastic! 
CoCo3 128k. disk $44.95 



ULTRAED+ 



assembler & disassembler ever 
for the CoCo3. 2 buffers. disk I/O 80 
col screen, handy online help file & 
get editable source code disassembly 
req.EDTASM cart to make working disk 
enrol l ?flv disk $24.95 



CoCo 3, 



SUPERSOUND 



-.gitize any sound tor programs 
sound effects for animated graphics 
Easy for novice, W/hacker features 
w/demos. Nothing to write down/forget 
Nothing else to buy. Works with your 
BASIC programs. A complete package 
Real MULTI-TASKING under RS-DOS. A 
MUST for your lowcost multimedia sys. 
CoCo3, 1 28k d i sk w/cab 1 e | ^$4^5 

ummate refer ance tor BASIC or M/i. 

?rogramming. Memory maps. helps more 
han PEEKs 6. POKEs very easy to_use 
Covers CoCo 1,2 i.3 

"— P'l V, . 

..■^=i< t'/nh'/a CoCo 3 
Bi»ft0e Yo'fufeJS CoCo 3 disk 
ffr^t f.TfMtoi. CC1.2.3 disk 




24.95 
19.95 
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8D4L8U4NR8BU4L2R12L6BU4U8" 

1085 DATA 

1090 DATA"BR14BD46S8R8U12L8D12BR 

12RBR5NU12BR5NR8U6R8U6NL8BR5NR8D 

6R8D6L8" 

1095 REM TWO EIGHTHS 

1100 DATA"BR58BD34NU28ND28NL32NR 

32NE22NF22NG22BR44BD12NU4R8U8D4L 

8U4NR8BU4L2R12L6BU4R4L8U4R8U4L8" 

1105 0ATA"BR58BD34NH22" 

1110 DATA"BR20BD46S8R8U12L8D12BR 

12RBR4NR8U6R8U6NL8BR4NR8D6R8D6L8 

1115 REM THREE EIGHTHS 

1120 0ATA"BR58BD34NU28ND28NR32NE 

22NF22NG22BR44BD12NU4R8U804L8U4N 

R8BU4L2R12L6BU4L4R8U4NL8U4L8" 

1125 DATA"BR58BD34NH22NL32" 

1130 DATA"BR14BD46S8R8U12L8D12BR 

12RBR3R7U6NL7U6NL7BR4ND2R7D12BR5 

R7U6L7U6R7" 

1135 REM FOUR EIGHTHS 

1140 DATA"BR58BD34NU28ND28NR32NE 

22NF22BR44BD12NU4R8U8D4L8U4NR8BU 

4L2R12L6BU4BR4U8D4L8U4" 

1145 DATA"BR58BD34NH22NL32NG22" 

1150 0ATA"BR34B046S8R8U12L8012BR 

12RBR4R8U6L8U6R8" 

1155 REM FIVE EIGHTHS 

1160 DATA"BR58BD34NU28NR32NE22NF 

22BR44BD12NU4R8U804L8U4NR8BU4L2R 

12L6BU4L4R8U4L8U4R8" 

1165 DATA"BR58BD34NH22NL32NG22ND 

28" 

1170 DATA"BR12BD46S8R8U12L8D12BR 

12RBR4NU12R8U6NL8BU6NL8BR4R7D6L7 

06R7BR4R7U6L7U6R7" 

1175 REM SIX EIGHTHS 

1180 DATA"BR58BD34NU28NR32NE22BR 

44BD12NU4R8U8D4L8U4NR8BU4L2R12L6 

BU4L4NU4R8U4L8U4R8" 

1185 DATA"BR58BD34NH22NL32NG22ND 

28NF22" 

1190 DATA"BR20BD46S8R8U12L8D12BR 

12RBR4BU12ND2R8D12BR4R8U6L8U6R8" 

1195 REM SEVEN EIGHTHS 

1200 0ATA-BR58B034NU28NE22BR44BD 

12NU4R8U804L8U4NR8BU4L2R12L6BU4B 

R4U8L8D2" 

1205 DATA"BR58BD34NH22NL32NG22ND 

28NF22NR32" 

1210 DATA"BR14BD46S8R8U12L8D12BR 

12RBR3NU12R7U6NL7U6NL7BR4N02R7D1 

2BR5R7U6L7U6R7" 

1215 REM EIGHT EIGHTHS 

1220 DATA 

1225 DATA"BR58BD34NU28ND28NL32NR 

32NE22NF22NG22NH22BR44BD12C0NU4R 

8U8D4L8U4NR8BU4L2R12L6BU4L4R8U4N 

L8U4L8D8" 

1230 DATA"BR36BD46S8R4L2U12NGBR6 

BD12RBR4R8U12L8D12" 

1235 REM ONE NINTH 

1240 DATA"BR58BD34NU28M-18.-22M+ 

18.+22M-30.-6M+30.+6M-26.+15M+26 

.-15M-12.+26M+12.-26M+12.+26M-12 



.-26M+26.+15M-26.-15M+30.-6M-30. 

+6M+18.-22BR26BD34R8U4NU4L8U4NR8 

BU4L2R12L6BU4U8" 

1245 DATA 

1250 DATA"BR22BD46S8R8U12L8D12BR 

12RBR7NU12BR7NU12BR7NU12" 

1255 REM TWO NINTHS 

1260 DATA"BR58BD34NU28M-30. -6M+3 

0.+6M-26.+15M+26.-15M-12.+26M+12 

.-26M+12.+26M-12.-26M+26.+15M-26 

.15M+30.-6M-30.+6M+18.-22BR26BD 

34R8U4NU4L8U4NR8BU4L2R12L6BU4R4L 

8U4R8U4L8" 

1265 DATA"BR58BD34M-18.-22" 

1270 DATA"BR12BD46S8R8U12L8D12BR 

12RBR4NR8U6R8U6NL8BR4R8D6L8D6R8B 

R4NR8U6R8U6L8" 

1275 REM THREE NINTHS 

1280 DATA"BR58BD34NU28M-26.+15M+ 

26.-15M-12.+26M+12.-26M+12.+26M- 

12.-26M+26.+15M-26.-15M+30.-6M-3 

0.+6M+18.-22BR26BD34R8U4NU4L8U4N 

R8BU4L2R12L6BU4L4R8U4NL8U4L8" 

1285 DATA"BR58BD34M-18. -22M+18.+ 

22M-30.-6" 

1290 DATA"BR14BD46S8R8U12L8D12BR 

12RBR3R7U6NL7U6NL7BR4R7D6NL7D6NL 

78R4R7U6NL7U6L7" 

1295 REM FOUR NINTHS 

1300 0ATA"BR58BD34NU28M-12.+26M+ 

12.-26M+12.+26M-12.-26M+26.+15M- 

26.-15M+30.-6M-30.+6M+18.-22BR26 

BD34R8U4NU4L8U4NR8BU4L2R12L6BU4B 

R4U8D4L8U4" 

1305 DATA"BR58BD34M-18.-22M+18.+ 

22M-30.-6M+30.+6M-26.+15" 

1310 DATA"BR12BD46S8R8U12L8D12BR 

10RBR4BU12D6R8U6MD12BR4D6R8U6ND1 

2BR406R8U6D12" 

1315 REM FIVE NINTHS 

1320 DATA-BR58BD34NU28M+12.+26M- 

12.-26M+26.+15M-26.-15M+30.-6M-3 

0.+6M+18.-22BR26BD34R8U4NU4L8U4N 

R8BU4L2R12L6BU4L4R8U4L8U4R8" 

1325 DATA "BR58BD34M- 18. -22M+18. 

+22M-30.-6M+30.+6M-26.+15M+26.-1 

5M-12.+26" 

1330 DATA"BR12BD46S8R8U12L8D12BR 

12RBR4R8U6L8U6R8BR4NR8D6R8D6NL8B 

R4NU6R8U6L8U6R8" 

1335 REM SIX NINTHS 

1340 DATA"BR58BD34NU28M+26.+15M- 

26.-15M+30.-6M-30.+6M+18.-22BR26 

BD34R8U4NU4L8U4NR8BU4L2R12L6BU4L 

4NU4R8U4L8U4R8" 

1345 DATA"BR58BD34M-18, -22M+18.+ 

22M-30.-6M+30.+6M-26.+15M+26.-15 

M-12.+26M+12.-26M+12.+26" 

1350 DATA"BR12BD46S8R8U12L8012BR 

12RBR4NU12R8U6NL8BU6NL8BR4D12R8U 

6L8U6R8BR4ND2R8D12" 

1355 REM SEVEN NINTHS 

1360 DATA"BR58BD34NU28M+30. -6M-3 

0.+6M+18.-22BR26BD34R8U4NU4L8U4N 

R8BU4L2R12L6BU4BR4U8L8D2" 

1365 DATA "BR58BD34M- 18. -22M+18. 



+22M-30.-6M+30.+6M-26.+15M+26.-1 

5M-12.+26M+12.-26M+12.+26M-12.-2 

6M+26.+15" 

1370 DATA"BR14BD46S8R8U12L8D12BR 

12RBR2BU10U2R8ND12BR3ND2R8ND12BR 

4ND12R8D6NL8D6L8" 

1375 REM EIGHT NINTHS 

1380 DATA"BR58BD34NU28M+18. -22BR 

26B034R8U4NU4L8U4NR8BU4L2R12L6BU 

4L4R8U4NL8U4L8D8" 

1385 DATA"BR58BD34M-18.-22M+18.+ 

22M-30.-6M+30.+6M-26.+15M+26.-15 

M-12.+26M+12.-26M+12.+26M-12.-26 

M+26.+15M-26.-15M+30.-6" 

1390 0ATA"BR12BD46S8R8U12L8D12BR 

12RBR4NU12R8U6NL8U6NL8BR4D12R8U6 

L8U6R8ND6BR4ND6R8D6NL8D6" 

1395 REM NINE NINTHS 

1400 DATA 

1405 DATA"BR58BD34NU28M-18.-22M+ 

18.+22M-30.-6M+30.+6M-26.+15M+26 

.-15M-12.+26M+12.-26M+12.+26M-12 

.-26M+26.+15M-26.-15M+30.-6M-30. 

+6M+18.-22BR26BD34C0R8U4NU4L8U4N 

R8BU4L2R12L6BU4L4R8U8L8D4R8" 

1410 DATA"BR36BD46S8R4L2U12NGBR6 

BD12RBR4R8U12L8D12" 

1415 DATA .5.1, .333. .667.1 

1420 DATA .25. .5. .75.1. .2. .4. .6. 

.8.1 

1425 DATA . 167 . .333. .5. .667 . .833 

.1 

1430 DATA .143. .286. .429. .571. .7 

14. .857.1 

1435 DATA . 125. .25. .375. .5. .625. 

.75. .875.1 

1440 DATA .111. .222. .333. .444. .5 

56. .667. .778. .889.1 

1445 CLS:PRINT:PRINT:PRINT 

1450 PRINTTAB(3)"PR0BLEMS COMPLE 

TED - "NC+NW:PRINT 

1455 PRINTTAB(3)"CORRECT RESPONS 

ES - "NC:PRINT 

1460 PRINTTAB(3)"INCORRECT RESPO 

NSES - "NW:PRINT 

1465 TR-NC+NW:IFTR-0THENTR-1 

1470 SC-INT(NC/TR*100) 

1475 PRINTTAB(3)"Y0UR TOTAL SCOR 

E - "SC"%": PRINT 

1480 PRINTTAB(3)"ANOTHER TRY (Y/ 

N) OR (C) ?": 

1485 X$-INKEY$:IFX$-""THEN1485 

1490 IFX$-"Y"THEN RUN 

1495 IFX$-"N"THEN CLS:END 

1500 IFX$-"C"THEN SCREEN1 . 1 :GOTO 

400 

1505 G0T01485 

1510 CLS:PRINT®232. "PLEASE STAND 

BY"; 
1515 F0RI-lT044:TEM$-Pt(I.l):P$( 
I.1)-P$(I.3):P$(I.3)-TEM$:NEXT 
1520 F0RI-1T044:TEM$-PS(I.2):P$( 
I.2)-P$(I.4):P$(I.4)-TEM$:NEXT 
1525 NG-1:G0T0115 



/R\ 
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Are you thinking about getting a new computer 
and don't know what to do... 



Are you upset by the 
lack of support that J| 
Tandy is giving you. « 




you confused 
by all the wild 
claims... 



Then hold your head up high and face the world with a smile because the 
Tomcat is here to save you from the misery and morass that you've been in. 




1991 Our 15th YEAR! 



HARDWARE (FULL 1 year warranty.) 

The Eliminator (2 RS232, 1 Parr, Hard/Floppy disk interlace) 119.95 

Battery backed Real Time Clock for The Eliminator 30.00 

Western Digital WD1 002-05 Eliminator hard/floppy controller 299.95 
HARD DRIVES FOR THE COCO (FULL 1 year warranty.) 

3urke & Burke 20 meg hard drive with 40 MS Fast Drive! 499.95 

Burke & Burke 30 meg hard drive with 40 MS Fast Drive! 529.95 

3urke & Burke 40 meg hard drive with 28 MS Fastest Drive! 659.95 

Eliminator 20 meg hard drive with 40 MS Fast Drive! CALL 

Eliminator 40 meg hard drive with 28 MS Fastest Drive! CALL 
SOFTWARE 

"he WIZ communications with windows tor RS OS9 59.95 

FBU file backup for hard disk RS OS9 35.00 

IFBU file backup for hard disk OS9/68000 (Includes 6809 ver.) 50.00 

DynaStar word processor for RS OS9 (NEW VERSION) 150.00 

DynaSpell spelling checker for RS OS9 only 20.00 

iDynaStar word processor for OS9/68000 (NEW VERSION) 200.00 

MS 4th G/L (A super database) for RS OS9 (SALE!!!) 99.95 

IMS 4th G/L (A super database) for OS9/68000 (SALE!!!) 299.95 

er Sleuth for RS OS9 (Disassembler) 50.00 

iSuper Sleuth for OS9/68000 (Disassembler) 1 00 .00 

BOOKS 

K5S9 INSIGHTS (The only book on OS9/68000) 44.95 



ORDERING INFORMATION 



and M/C. check and C.O.D. Contential U.S. software shipping add $3.50 
round - $6.00 Two Day Air. Hardware add $1 1 ground - $22 Two Day Air. 
se call for Next Day Air costs and COD. Foreign add 10% Shipping 
-mum $5 USD). NY residents please add 7% sales tax. 

Since 1976 

204 Windemere Road 

Syracuse, NY 13205 

FAX 315/469-8537 




Call 315/469-7364 



Tomcat TC70 



The power of the 68000, three times the memory of an 
expanded CoCo 3, better color, hard disk, floppy disk, 
serial ports, parallel port, clock, mice, sound, all in less 
space than a CoCo 3. FHLs advanced capabilities now 
bring you the TC70. 

The TC70 is slick. Everything is on just one PC board, 
yet you can expand the heck out of it by using the K- 
Bus. This is not an option, it's built in! The TC70 is the 
same size as the TC9 because the two of them were 
designed to work together. Wasn't that smart of us! 
Each one can use the other to help get the job done! 
We all knew the CoCo was the most powerful comput- 
er in its class, plus a few, Now the TC is even better! 

Put these TCs in a box and we call it a Tomcat! We 
use the term Tomcat to describe anything that in- 
cludes 1 or more of these in the box. Simple huh. Take 
a bit of this, a bit of that, a few drives, some ICs ; stuff i 
in a box, shake it up and voila a Tomcat! 





The Tomcat with all these capabilities is the slickest 
computer ever made! Of course you can put different 
combinations of boards (we have over 20) in the box to 
make whatever kind of computer you want. There is a 
lot of 'bility here, expandability, upgradability besides 
plain ol' ability. Just change a few boards and you have 
a whole different computer. Pity the IBM guys, they 
have to buy a new computer every time they upgrade. 
Us Tomcatters just swap a few boards and up up and 
away we go. 

If you want to go 68K we have the TC70. if you want 
CoCo compatibility we have the TC9. If you want your 
cake and eat it to... Guess what, you can do that too, 
with the Tomcat! 

As you would expect we have a lot more information 
we can send you that better describes the Tomcat and 
all its features and capabilities. Why not write or call us 
right now before you forget. You've been wondering 
about it long enough, give us a call right now! 



Appreciatin 




Learn to get along 
with depreciation 
calculations 



by David Macias 

Very few obsessions equal the 
one accountants express when 
it comes to keeping their books 
in order. For them, every ledger 
entry must be accurate and 
properly placed. It makes common sense 
that if you pay siw for office supplies the 
ledger reflect that s 1 00 in cash was paid out 
and the office supply account increased by 
the same sioo. Entering the cost of insur- 
ance is just as simple. Tocalculate this cost, 
divide the yearly cost by the number of 
months covered. This gives you the monthly 
amount of insurance expense to enter. But 
what about the wear and tear on your equip- 
ment? What value will the equipment have 
after one year? How do you record its 
depreciation? To answer these questions 
accountants create two separate accounts 
to cover the same piece of equipment. 

The first account is the original pur- 
chase price of the equipment. If you paid 

David attends Ccrritos College as a busi- 
ness computer systems major. He works as 
a computer operator in data processing 
and also as a tutor for the music depart- 
ment in the MIDI lab. He is an advocate of 
the OS-9 operating system. David can be 
contacted at I ISIS Wembley Court. Cerritos. 
CA 90701. Please include an SASE when 
requesting a reply. 
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Depreciation 




ooo for a VAX system, the ledger shows 
this amount for as long as you own the 

tem. The second account is forthe accu- 
mulated depreciation. Every month the 

ountant enters the amount of deprecia- 
non into this separate account. At specific 
intervals the accountant is required to pre- 
pare a balance sheet showing the financial 
position of a company or economic unit. 
For this balance sheet, the equipment ac- 



count is adjusted by subtracting the amount 
of the accumulated depreciation from the 
original purchase price. 

How do accountants come up with the 
amount ofeachmonth'sdepreciation? This 
amount is based on the expectation that a 
piece of equipment gradually declines in 
usefulness due to time and normal wear and 
tear. The cost is spread out over the esti- 
mated useful life of the equipment. This 





OS-9 


* 


Listing 1 


Depreciate. b09 


PROCEDURE 


Depreciate 


0000 




0001 


(* Appreciatln' Depreciation *) 


0022 


(* written by David Macias *) 


0043 


(* Copyright (c) February 1991 *) 


0064 


(* by Falsoft. Inc. *) 


0085 


(* Rainbow Magazine *) 


00A6 




00A7 


DIM Cost.Value:REAL 


00B2 


DIM Year:INTEGER 


00B9 


DIM Path:BYTE 


00C0 


DIM ChOice:STRING[l] 


00CC 




00CO 


CREATE //Path. "account. out": WRITE 


00E3 


RUN TUle(Path) 


00ED 


RUN GFX2("CLEAR") 


00FA 




00FB 


PRINT 






article covers three methods used to deter- 
mine depreciation. These three methods 
are the Straight-Line method, the Sum-of- 
the- Years"-Digits method and the Acceler- 
ated Cost Recovery System, or ACRS. Each 
of these are used to determine the annual 
depreciation of an account. To get the 
monthly depreciation, divide the yearly 
amount by twelve. 

Straight-Line Method 

With the Straight-Line method, the 
depreciation is determined by the follow- 
ing formula: 

YD = Cost - Trade 
Years of life 

where YD is the yearly depreciation. Cost is 
the cost of the asset, and Trade is the trade- 
in value of the equipment. 

For example, assume the cost of a piece 
of equipment is s 10,000. The expected use- 
ful life is five years with a trade-in value of 
$2500. The equation looks like this: 

yd = S10.00Q-S2S00 =$1500 per year 
5 years 

Each year, the accumulated deprecia- 
tion increases by S1500 and the book value 
(cost minus accumulated depreciation) 
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decreases by $1500. At the end of the last 
useful year of the equipment, the book 
value is equal to the trade-in value. With 
this method, the amount of depreciation is 
the same each year. 

Sum-of-the-Years"-Digits Method 

The Straight-Line method may not re- 
flect reality since the majority of material 
objects lose most of their value after the 
first year. In the Sum-of-ihe-Years'-Digits 
method the greatest amount of depreciation 
occurs in the first year with decreasing 
depreciation in each consecutive year. 

To determine the amount of deprecia- 
tion, first create a fraction by adding the 
number of useful years and using the sum 
as the denominator and the years in reverse 
order as the numerator: 

1+2 + 3 + 4 + 5 = 15 

gives Vis. Vis. Vis. Vis and '/is 

Now take the cost of the equipment, 
subtract the trade-in value, and multiply the 
result by the fraction. For example: 



Year 

1 

2 

3 
4 
5 



Depreciation 

SI 0.000 - $2500 * Vis = S2500 
S 1 0.000 - S2500 * 4 /i s = S22O0 
SIU.IXK) - S2500 * '/l5 = SI 51 hi 
J1O.0OO-S25O0 * Vis= SKKKi 
$10.000- $2500* '/is= $500 



Again, at the end of the last useful year 
of the equipment, the book value is equal to 
the trade-in value. 

Accelerated Cost Recovery System 

The ACRS method does not consider the 
trade-in value for depreciation calculations. 
The type of property and the percentage 
table are used to find the depreciation. 
Property is divided into several categories 
for calculation. These categories specify 
three years for cars and trucks, five or K) 
years for machines and equipment, and 15 
or 18 years for buildings. The percentage 
tables are established by the U.S. Congress 
and change from time to time. The tables 
used in the accompanying program are for 
personal property placed in service after 
1 980 and before 1987. Forexample.acarthal 
cost si 0.000 with a useful life of three years 
would be calculated as follows: 



Year 

1 


S10.000*.25 = 


Depreciation 

S2500 


2 
3 


SI 0.000*. 38 = 
S 10.000*. 37 = 


S3800 
S3700 



The total accumulated depreciation is S25oii 
+ S3800 + $3700, or $10,000. 



00FD 


PRINT 






00FF 


PRINT 






0101 








013F 


PRINT 






0141 


PRINT 






0143 


INPUT "What 1s the original cost? ".Cost 






0166 


PRINT 






0168 


PRINT " ENTER ONE" 






017C 


PRINT 






017E 


PRINT 






0180 


PRINT " A-3 B-5 C-10" 






019A 








019B 


REPEAT 






0190 


INPUT "How many useful years? ".Choice 






01BC 








01BD 


IF Cho1ce-"a" OR Cho1ce-"A" THEN 






01D2 


Year-3 






01D9 


ELSE 






01DD 


IF Choice-"!)" OR Cho1ce-"B" THEN 






01F2 


Year-5 






01F9 


ELSE 






01FD 


IF Cho1ce-"c" OR Choice-"C" THEN 






0212 


Year-10 






0219 


ENDIF 






021B 


ENDIF 






021D 


ENDIF 






021F 


UNTIL Year-3 OR Year-5 OR Year-10 






0238 








0239 


PRINT 






023B 


INPUT "What is the trade-In value? ".Value 






025F 


PRINT #Path. "PURCHASE PRICE - "; Cost 






027D 


PRINT #Path 






0283 


PRINT frPath USING "'USEFUL LIFE IN YEARS -' .XI. 13". Year 






02AE 


PRINT #Path 






02B4 


PRINT #Path. "TRADE-IN COST - "; Value 






02D1 


PRINT #Path 






02D7 


RUN GFX2( "CLEAR") 






02 E4 


PRINT 






02E6 


PRINT 






02E8 


PRINT "RUNNING STRAIGHT-LINE METHOD- 






0308 


RUN Straight (Cost. Value. Year. Path) 






0321 


PRINT 






0323 


PRINT "RUNNING SUM-OF-THE-YEAR DIGIT METHOD" 






034B 


RUN Sum(Cost. Value. Year. Path) 






0364 


PRINT 






0366 


PRINT "RUNNING ACRS METHOD" 






0370 


RUN ACRSfCost. Value. Year. Path) 






0396 


PRINT 






0398 


CLOSE #Path 






039E 


PRINT "DONE" 






03A6 


END 






PROCEDURE Straight 






0000 


DIM Annual .Accumulate:REAL 






000B 


DIM Count:INTEGER 






0012 


PARAM Cost.Value:REAL: Year: INTEGER: Path:BYTE 






0029 








002A 


Annual- (Cost -Value) /Year 






003B 


Accumul ate-0 






0043 








0044 


PRINT #Path 






004A 


PRINT #Path." STRAIGHT-LINE METHOD" 






007E 


PRINT ffPath 






0084 


PRINT #Path." YEAR DEPRECIATION ACCUMULATED DEP. 


BOOK 




VALUE" 








00CD 


PRINT #Path 






0003 








00D4 


FOR Coutit-1 TO Year 






00E5 


Accumul ate-Accumulate+Annual 






00F1 


PRINT //Path USING "X4. I3.X5. R10.2>.X12.R10.2>.X8.R10.2>". 
Count. Annual .Accumul ate. Cost -Accumul ate 






0132 


NEXT Count 






013D 








013E 


PRINT #Path 






0144 


END 






PROCEDURE Sum 






0000 


DIM Annual , Accumulate. Deprec1ation:REAL 






000F 


DIM Count. Fract1on:REAL 






001A 


PARAM Cost.Value:REAL: Year;INTEGER: Path:BYTE 






0031 








0032 


Fract1on-l 






003A 


Accumul ate-0 






0042 








0043 


FOR Count-1 TO Year 






0056 


Fraction-Fraction+Count 






0062 


NEXT Count 






0060 








006E 


PRINT #Path 






0074 


PRINT #Path 
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007A 


PRINT //Path." SUM-OF-THE-YEARS 1 DIGIT METHOD- 


0083 


PRINT #Path 


00B9 


PRINT #Path." YEAR DEPRECIATION ACCUMULATED DEP. BOOK 


VALUE" 




0102 


PRINT #Path 


0108 




0109 


FOR Count-1 TO Year 


011C 


Deprec1at1on-(Cost-Va1ue)*((Year-Count+l)/(Fract1on-l)) 


013D 


Accumul ate-Accumulate+Depredatlon 


0149 


PRINT //Path USING "X4. I3.X5.R10.2>,X12.R10.2>.X8.R10.2>". 




Count .Depredation. Accumulate. Cost- Accumulate 


018A 


NEXT Count 


0195 




0196 


PRINT //Path 


019C 


END 


PROCEDURE 


ACRS 


0000 


DIM Count:INTEGER 


0007 


DIM Accumulate. Depreciation. Fraction: REAL 


0016 


PARAM Cost.Value:REAL: Year: INTEGER: Path:BYTE 


0020 




002E 


Accumulate-0 


0036 


PRINT //Path 


003C 


PRINT //Path 


0042 


PRINT //Path." ACCELERATED COST RECOVERY SYSTEM METHOD" 


0081 


PRINT //Path 


0087 


PRINT //Path 


008D 


PRINT //Path." YEAR DEPRECIATION ACCUMULATED DEP. BOOK 


VALUE" 




00D6 


PRINT //Path 


00OC 




0000 


REPEAT 


00DF 


READ Fraction 


00E4 


UNTIL Fraction-Year 


00F1 




00F2 


FOR Count-1 TO Year 


0103 


READ Fraction 


0108 


Deprec1ation-Cost*Fraction 


0114 


Accumul ate-Accumul ate+Depred at1 on 


0120 


PRINT //Path USING "X4.I3.X5.R10.2>.X12.R10.2>.X8.R10.2>". 




Count. Depreciation. Accumul ate. Cost- Accumul ate 



The Programs 

The two programs accompanying this 
article (one written in C and the other writ- 
ten in basicw) function pretty much like 
each other. The main module opens an 
output file named accountant. out. A se- 
ries of questions prompts the user for the 
raw data needed to generate a depreciation 
report. The data is then written to the output 
file and the main module calls the three 
modules (one at a time) to calculate each 
depreciation method and write the results 
of each calculation to the output file. When 
the ACRS module is completed, the main 
module closes the output file and the pro- 
gram ends. To see the results, enter 1 ist 
accountant . out. You can also load the file 
into a word processor for inclusion in a 
report. 

There are a few noteworthy differences 
between the basicw and C versions. In the 
C program, the StraightO. Sum( ) and 
ACRSO modules all include a rounding 
routine not present in the basicw program. 
When working with real numbers you must 
remember how the computer stores real 
numbers. The value 200.127 is stored in 
memory as .200I27E-3. For this value, .200127 
is called the mantissa and E-3 is the expo- 
nent (power of 10). In C, if you print this 
value with the format ■;; 5.21 the 7 is dropped. 



T HARDWARE SPECIALS 

♦ Magnavox 1CM135 RGB monitor • $285! (atop $10 us. 35 con) 

♦ Star NX-1000 Rainbow color printer - $199! (ship $7 us, 20 con) 

♦ AMT Star 2400-baud modem - $951 (sWp S» US, s cdn> 



. 



— 



MARTY'S NIGHTMARE- the Search for the Lost Seminar 



In Bjork's humorous arcade tribute to Marty Goodman, you can learn just 
how Marty must feel having ALL that CoCo knowledge!! Features fast 
hardware scrolling, over 100k of digitized sound (actual voices of Marty and 
Steve), GREAT graphics, and LOTS of fun for anyone who loves the CoCo 
community. An instant CoCo collectible! Req.512k CoCo-3.^ — tt—^ 

only 30 copies left - HURRY! ($24 .9 



Tandy Flight Simulator II 

OS-9 Iv. II flying fun! Req. CoCo-3 *g gc 

Brand-new, factory-sealed!! 9T.7Q 



GAMER'S SMORGASBORD 



Buy two, take 20% off each! 



CALADURIL 2 - $38 
MINE RESCUE - $25 
WRESTLE MANIAC - $20 
CALADURIL - $20 
SINISTAAR - $35 

KYUM-GAI<reg ver>-$30 
THOSE DARN MARBLES - $32 



OVERLORD - $29 
BASH! - $25 
SEVENTH LINK -$38 
Z'89 - $30 
ZENIX - $30 



Japan Scenery Disk for above 

$24.95 



Explore the orient! Rare supplemental 
disk from subLOGIC. Factory-sealed! 



OS-9 Level 2 

incredibly powerful operating system, at an 
INCREDIBLE price! Brand new! yg^T^U 
Retail $79.95 -our price $34.95. 

'.:'. Quanlllieslimlled. Add $6 ship. 






MULTIVUE-$30 0E$KMATE3-m 



ONE-MEG 

(POPULATED) I 

$169 



KYUM^GAI: TO BE NINJA 

OS-9 VERSION U£^ 

(HERE AT LAST!) \3>^-^ 



ALSO, for incredible savings on new and used CoCo 
soft- and hardware (over 250 different CoCo items), 
send $12 for 1 2 monthly issues of our catalog-on-disk. 



Add $3 Ship on all 



lip i 
D ; 



orders. COD add $4. 

Canada-add 10% 
additional ship. 

All prices U.S. funds 
VISA/MC add 5%. 



COCOPRO! 



1334 BYRON AVE. 

YPSILANTI, Ml 48198 

(3 13) 481 -DAVE (3283) 



4 



3-12-2400 



24 HRS. 
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Reviewer 
Information 



In order to continue to bring Tandy 
Color Computer users all the best 
information about new hardware and 
software products each month, we 
are constantly looking for new people 
to join our independent review staff. 
Therefore, we invite you to join THE 
rainbow's elite fleet of reviewers. 

You read THE rainbow because 
you love your Color Computer, so if 
you want a creative outlet and a 
chance to examine quality hardware 
and software, with your observa- 
tions published nationwide, we want 
to hear from you. 

Send us a cover letter with your 
name, address, occupation, list of 
equipment, areas of general inter- 
ests, and a sample review of a CoCo 
product you are currently using. We 
look forward to your response. After 
all, we already see you have the best 
taste in computers. 

Reply to: 

Reviews Editor 
The Rainbow 
The Falsoft Building 
P.O. Box 385 
Prospect. KY 40059 



S, 




0161 


NEXT Count 


016C 




0160 


PRINT //Path 


0173 




0174 


DATA 3. .25. .38. .37.5 


01B9 


DATA .08. .14.. 12. .1. 


0203 


END 


PROCEDURE 


Title 


0000 


PARAM Path:BYTE 


0007 




0008 


PRINT //Path.CHR$(12) 


0012 


PRINT //Path 


0018 


PRINT //Path." 


0055 


PRINT //Path." 


0092 


PRINT #Path." 


00CF 


PRINT //Path." 


010C 


PRINT //Path 


0112 


END 



| Three Depredation Methods |V 

wwwwuwwwwwuwwwww 



Listing 2: Depreciated 



/* 

** 
** 
** 
*/ 



Appreciatin' Depreciation 
Written by David Madas 
Copyright (c) February 1991 
by Falsoft. Inc. 
Rainbow Magazine 



//include <stdio.h> 

//define Clear(path) wri te(path."\x0C".l) 

main( ) 

I 

float cost, value: 

int year, path; 

char choice; 

FILE *out; 



out - fopenC'account.ouf 
path - 1: 



"w"): 



pff1n1t(): 
tltle(out): 
Clear(path); 
pr1ntf("\n\n\n"); 

printft" DEPRECIATION METHODS- 

pr1ntf("What is the original cost? "); 
scanfTU". &cost); 
pr1ntf("\n\n ENTER 0NE\n\n\n") : 

pr1ntf(" A-3 B-5 C-10\n\n"): 

printfC'How many useful years? "): 



-\n\n\n"); 



do 
I 



choice - getchart ) : 
swltch(chofce) 

r 

case 'a': 

case 'A': 

year - 3: 
break; 

case "b": 
case 'B': 

year - 5; 

break: 

case 'c': 
case 'C's 

year - 10; 

break; 

default: 

year - 0; 
break: 



I 
I wh1le(year !- 3 && year !- 5 it year !- 10): 

printf("\n\nwhat 1s the trade-In value? "): 
scanfC'Xf". lvalue): 

fpr1ntf(out. "PURCHASE PRICE - S5.2f\n\n". cost): 
fprintf(out. "USEFUL LIFE IN YEARS - %d\n\n". year); 
fprintftout. "TRADE-IN COST - X5.2f\n\n", value): 
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Clear(path); 

pr1ntf("\nRUNNING STRAIGHT-LINE METHOD\n"): 
stra1ght(cost. value, year, out): 
pr1ntf("\nRUNNING SUM-OF-THE-YEARS' METH0D\n"): 
sumfcost. value, year, out); 
pr1ntf("\nRUNNING ACRS METH0D\n"): 
acrs(cost. value, year, out): 

fclose(out ) : 



I 



stra1ght(st cost. st_value. st_year. st_out) 

float st cost. st_value: 

1nt st_year; 

FILE *st_out; 

I 

float annual, accumulate: 

int count: 

annual - (st cost - st_value) / st_jrear: 
accumulate - 0: 



fprintflst out. "\n 

fprfntf(st_out. 

YEAR DEPRECIATION 



STRAIGHT-LINE METH0D\n\n") : 



ACCUMULATED DEP. 



BOOK VALUE\n\n"): 



for(count - 1: count <- st_year: -w-count) 



I 



accumulate 



annual : 



I 



1f( (count — st year) && ((st.cost - accumulate) !- st^value)) 
accumulate +- ((st cost - accumulate) - st^value): 

fprintf(st_out, 

■■ %3d %10.2f *10.2f *10.2f\n". 

count, annual, accumulate. (st_cost-accumulate)) : 

1 

fpHntftst out, "\n"): 



sum(s cost, s value, s year. s.out) 



and the 2 next to it is raised by one. In 
BASIC09. if you print the same value using 
the format R.s.2. the 7 is merely hacked off 
with no affect on the place values to its left. 
The 7 is still in memory, though. For this 
reason, some reports generated by the bas- 
IC09 program show the final book value in 
the ACRS report with a minus sign, even 
though the amount displayed is 0.00. Other 
differences reflect the various attributes of 
these two languages. 

The C language has (he advantage of 
being brief. In the ACRS module, the BAS- 
IC09 version uses a data statement to store 
the fraction table. A REPEAT/UNTIL loop is 
used to match the correct sequence of frac- 
tions to the corresponding year. The C 
version stores the fraction table in an array 
and uses one line of code to match the list of 
fractions to their corresponding year. The 
following line is an example of the quick 
and efficient C version: 

while(percentage[cmp++] !- a_year) 

Disclaimer 

It is important to note that these pro- 
grams are presented for educational pur- 
poses. We take no responsibility should 
you decide to update the tables and use 
them for business/personal taxes. □ 



Rainbow Seal of 
Certification 



2ES 



s/fitPie soFra'aR£ presents-- 



BRNtING MRSTER 



IN COLOR & MACHINE LfiNGUOGE 



COMPLETELY MENU DRILIEN 

BfiLflNCING CHECKBOOK 

v BfiLflNCING STATEMENT 

VS.BOLONCING SALMNGS f ** . 

-MJR.I3E2 SIMPLE I- 
r* * NO MORE N.S.F. * * * 



>>> $20.00 *• *3.QO S^U <<< 



SIMPLE 
SOFTWARE; 
PRESEHTS 



ESMB; 



W DATABASES ONLINE AT ONCE! 
ANY ITEMS YOU CAN THINK OF! 
I.E. NAMES & ADDRESSES 
PHONE NUMBERS 
PARTS *l VENDORS 
MAGAZINE ARTICLES 
COLLECTIONS • » ! 
COMflFTFir MFMU />/?/VFJ¥ 

¥HE IHST DninBHSE VOO'Ll EUER NEED 



t4Q.OO *■ <3.0Q__S^iJL 

C0C03 & 1 DISK RGB OR TV 
♦ SATISFACTION GUARANTEED * 



RUSS GRIGGS 
1I1B PERRY HUE 

BREMERTON.UlflSHINGTON 98310 



Nine-Times 

The first magazine devoted exclusively to OS-9! 

Ifvery other month you will receive a disk jam-packed | 
with programs and articles all for OS-9. | 



Each Issue contains: 9 helpful and useful programs to help build your OS-9 
library • Instructions, examples, and samples of Baslc09 procedures and 
subroutines to help with your own programs and your understanding of Baslc09 
• C programs and programming examples • Program reviews. Hints. Help 
columns, and Informative articles to advance your knowledge of OS-9 • Supplied 
totally of 5.25" disk • Uound manual sent to each new subscriber for help In 
getting Nlru- Times up and running, as well as tips on using H with a ram disk or 
hard disk • All graphlc/JoysBck Interface for ease of use. 

1-Year Subs, $34.95 Canadian postage, add S1.00 

Foreign postage, add S7.00 



Hack Issues: Available for the May 1 989 through September 1 990 Issues. 
Please write for Information on Back Issue contents. 

Back Issue, ea. $7.00 Foreign postage, add SI. 50 ea. 



Magazine Source: Due to many Inquiries, the source code for the 
magazine graphic shell Is being provided as an informational tool. Included is 
the actual UaslcOU source code and compiled modules on disk, as well as 
documentation and a printed copy of the source code. 



Source, $24.95 



Foreign postage, add SI. 50 



To order, please send U.S. 
check or money order lo: 



Technical Assistance: 
(2161-758-7694 



JWT Enterprises 

5755 Lockwood Blvd. 

Youngstown. OH 445 12 



RAINBOW 



SfAL 

Sony, no CO !d.'h or credit cards: Foreign ft Canadian orders. pJrcuaf u*e U.S. mo»tj ordera. 
U.S. checks, allow 3-4 weeks for receipt of first Issue/back issue. 

19ft. IMS «-t la I Ulte* -1 Hlrtm*»rm Sy.t— Cof>. «n« IWarcli, lf>c. 
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About 

Your 

Subscription 



Your copy of THE rainbow is sent 
second class mail. You musl notify us of 
a new address when you move. Notifica- 
tion should reach us no later than the 1 5th 
of the month prior to the month in which 
you change your address. Sorry, we can- 
not be responsible for sending another 
copy when you fail to notify us. 

Your mailing label also shows an ac- 
count number and the subscription expi- 
ration date. Please indicate this account 
number when renewing or correspond- 
ing with us. It will help us help you better 
and faster. 

For Canadian and other non-U. S. sub- 
scribers, there may be a mailing address 
shown that is different from our editorial 
office address. Send your correspondence 
to our editorial offices at Falsoft, Inc.. 
The Falsoft Building. P.O. Box 385. Pros- 
pect. KY 40059. 




float s_cost. s_value: 
int s year: 
FILE *s_out: 



( 



float annual, accumulate, depreciation, round: 
int count, fraction; 

fraction - 1: 
accumulate - 0: 

forlcount - 1: count <- s_year: ++count) 
fraction +- count: 



fprintf (s.. out . 
"\n\n\n 



SUM-OF-THE-YEARS' DIGIT METH0D\n\n") : 



" Pr YEAR S U DEPRECIATION ACCUMULATED DEP. BOOK VALUE\n\n"): 
for(count - 1: count <- s_year; ++count) 



I 



1 



depreciation - ((<s_cost-s_value)*( (s_year-count+l) )/(fract1on-l) )) : 
accumulate +- depreciation: 

ifUcount — sjear) && ((s cost - accumulate) !- svalue)) 

round - ((s.cost - accumulate) - s^value): 
depreciation +— round; 
accumulate +— round; 
) 

fprintf ( s out. 

" %3d %10.2f «B-2f *10.2f\n". 

count, depreciation, accumulate, (s^cost - accumulate)): 

1 
fpr1ntf(s_out."\n"); 



acrs(a_cost. a_value. a^year. a_out) 
float a_cost. a_value: 
1nt a_year: 

FILE *a_out; 



( 



float accumulate, depredation, fraction, round; 
int count, cmp: 

static float percentage!] - ( 

3. .25. .38. .37. 5. .15. .22. .21. .21. .21. 

10. .08. .14. .12. .1. .1. .1. .09. .09. .09. .09 
1; 

cmp - 0: 

accumulate - 0; 

fprlntf(a_out. 
"\n\n 



fprintf (a_out, 

YEAR DEPRECIATION 



ACCELERATED COST RECOVERY SYSTEM METHOD\n\n\n") : 

BOOK VALUE\n\n">: 



ACCUMULATED DEP. 
while(percentage[cmp++] I- a_year) 



for(count - 1; count <- ajear; +*count) 

depredation - accost * percentage[cmp++]; 
accumulate +- depredation: 



1f ((count — a_year) && ((a. cost 

round - (0 - (accost - accumulate)): 
depredation -- round: 
accumulate -- round: 

1 

fprintfCa^out. 

%3d *10.2f J10.2f 

count, depreciation, accumulate, accost - 

1 

fpr1ntf(a^out. "\n"): 



accumulate) I- 0)) 



%10.2f\n". 
accumulate) : 



t1tle(t_out> 
FILE *t_out: 



fpr1ntf(t_out. "%c" 
fpr1ntf(t out."\n 
fprintf(t_OUt." 
fpr1ntf(t_out." 
fprintfft out." 



12): 



\n">; 

/I Three Depredation Methods |\n"); 
/ \n"); 

llll/ll/llllllllllllllllllllll\r\\t\"); 



fPS 
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/ocal Freedom turns 
your computer into a digital 
voice recorder. The optional 
Hacker's Pac lets you incorpo- 
rate voices or sounds that you 
record into your own BASIC or 
ML programs. This is not a syn- 
thesizer. Sounds are digitized 
directly into computer memory 
so that voices or sound effects 
sound very natural. One "off- 
the-shelf" application for Vocal 
Freedom is an automatic message 
minder. Record a message for 
your family into memory. Set Vo- 
cal Freedom on automatic. When 
Vocal Freedom "hears" any 
noise in the room, it plays the 
prerecorded message directly 
from its Random Access Memory 
with amazing fidelity! You may 
also SAVE or LOAD sounds to and 
from DISK. VF also tests memory 

:ake advantage of from 64K up 
to a full 512K. Imagine being able 
create a library of Sound 
Effects to be activated on de- 
sand for your home Videos. 
Imagine being able to create 

nple BASIC programs that talk 
or even sing in a perfectly natu- 
ral human voice. YOURS! Imag- 
ine using the optional Hacker's 
Pac to write a simple spelling 
program for your kids. The 

Tiputer can pronounce any 
rd, the child would be asked 
.ype it. The applications are 



Would your friends be 
impressed if your com- ^s/>/*^~ 



■&\ 



virtually unlimited! Requires low 
cost amplifier (RS cat. #277- 
1008) and any microphone. Will 
run on a CoCo 1, 2, or 3. Vocal 
Freedom Disk: $34.95. Optional 
Hacker's Pac Disk: $19.95. Disk 
for both: $49.95 

I lumbal d'vmjyrfh 

"ill 

puter could read their 
minds? Mental Freedom i~~ 
uses the techniques di 
Biofeedback to conti-ol video 
game action on the screen. Tele- 
kinesis? You control the action 
with your thoughts and emo- 
tions. Your goal is to materialize 
and levitate objects with the 
power of your mind while avoid- 
ing the insidious cobra. Mental 
Freedom teaches peace of mind 
in the face of adversity. Mental 
Freedom even talks in a per- 
fectly natural voice without 
using a speech synthesizer! Re- 
quires Radio Shack's low cost 
Biofeedback monitor, Cat. #63- 
675. Will run on a CoCo 2 or 3 but 
not CoCo 1. Disk: $24.95 

These three utilities give 
real power to your CoCo 3. 

OiamidbtJk hjMmimu 

This is the best Ramdisk avail- 
able. It lets you have up to 4 
mechanical disk drives and 2 
Ram drives on-line and is fully 
compatible with our Printer 
Lightning. Requires 512K CoCo 3. 
Disk: $19.95 

(rwwv Jj/wl/rumn, 

Load it and forget it — except for 
the versatility it gives you. 
Never wait for your printer 
again! Printer runs at high 
speed while you continue to 
work at the keyboard! Disk: 
$19.95 



Reads your master disk once and 
then makes super fast multiple 
disk backups on all your drives! 
No need to format blank disks 
first! Supports 35,40 or 80 track 
drives. This utility requires 
512K. Disk: $19.95 



mm &>jl 



Produce standard grade 2 
Braille on a Brother daisy wheel 
printer. Easy to use for sighted 
or blind user. No knowledge of 
Braille is necessary. Call for free 
sample. Will run on CoCo 1, 2, or 
3. Disk: $69.95 

VDOS, The Undisk, ramdisk for 

the CoCo 1 or 2 only. Available 

only on tape: $24.95 

VDUMP, backup Undisk files to 

single tape file. Requires VDOS. 

Tape: $14.95 

VPRINT, Print Undisk directory. 

Requires VDOS. Tape: $9.95 




Add $2.50 shipping/ 
handling in USA or 

CANADA 

Add $5.00 to ship to 

other countries 

Dr. Preble's Programs 
6540 Outer Loop 

Louisville. KY 40228 

24 Hour Hot Line 

(502) 969-1818 

Visa, MC, COD, Check 
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Disk Utility 



32K Disk 



Quick Directory Sorter 

by David C. Enger 



Have you ever waited for a directory 
sort program running under Disk basic 
to Finish? It seems to take forever, right? 
Wait no more, here is DirSon, the quick 
directory sort. 

DirSort is a machine-language direc- 
tory sort utility, which uses a modified 
bubble sort routine. The program was 
designed to run on a CoCo 3 under DECB 
Version 2. 1 . However. Dir Sort works on 
any 32K or more CoCo with either Disk 
BASIC l.O or l.l. 

To install Dir Sort on your disk, run 
DIRSORT to generate and save the ma- 
chine-language program. Enter 
PCLEAR4:L0ADM"DIRS0RT":EXEC and fol- 
low the prompts to quickly sort your 
directory. 

The Listing: DIRSORT 

"QUICK DIRECTORY SORTER 

1 'BY DAVID C. ENGER 

2 'COPYRIGHT (C) JANUARY 1991 

3 'BY FALSOFT. INC. 
30 WIDTH32:CLS:PRINT 

40 PRINT"P0KING DIR SORT/BIN INT 

MEMORY" 

50 PRINT 

60 AD-&HE00 

70 FORX - 1 TO 13 

80 T-0:C-0 

90 F0RY-1T045 

100 READArPOKEAD.A 

110 AD-AD+1:C-C+A 

120 NEXTY 

130 READA:IFAOC THENPRINT"ERROR 

IN LINE"X*10+160:END 
140 NEXTX 

150 PRINT-SAVING •DIRSORT.BIN'" 
160 SAVEM"DIRSORT.BIN".&HE00.&H1 
046.&HE00 

170 DATA 189.15.124.142.15.181.1 
89.15.156.142.15.206.189.15.156. 
189.15.145.189.15.124.142.15.181 
.189.15.156.142.16.17.189.15.156 
.189.14.43.142.16.40.189.15.156. 
57.189.14.4723 

180 DATA 58.189.14.142.189.15.11 
2.134.0.183.255.64.57.16.142.16. 
70.190.192.6.134.2.167.132.182.1 
5.111.167.137.0.1.134.17.167.137 
.0.2.134.3.183.15.108.189.14.118 
.4313 
190 DATA 166.164.129.255.39.17.1 



82.15.108.129.11.39.10.124.15.10 

8.49.169.1.0.126.14.87.16.191.15 

.109.57.16.175.137.0.4.182.15.10 

8.167.137.0,3.173.159.192.4.109. 

3926 

200 DATA 137.0.6.38.1.57.57.204. 

15.89.253.15.102.189.14.197.204. 

15.75.253.15.102.189.14.197.204. 

15.61.253.15.102.189.14.197.204. 

15.47.253.15.102.189.14.197.204. 

15.4743 

210 DATA 33.253.15.102.189.14.19 

7 . 204 . 1 5 . 21 . 253 . 15 . 102 . 189 . 14 . 1 9 

7.57.190.15.109.191.15.106.142.1 

6.70.127.15.104.110.159.15.102.3 

1.18.52.16.31.33.127.15.105.236. 

132.16.4168 

220 DATA 174.137.0.32.237.137.0. 

32.16.175.129.124.15.105.182.15. 

105.129.8.38.232.53.16.134.1.183 

.15.104.48.137.0.32.188.15.106.3 

8.203.252.15.106.131.0.32.253.15 

.4099 

230 DATA 106.182.15.104.38.183.5 

7.236.137.0.32.16.163.132.36.223 

.126.14.213.236.137.0.34.16.163. 

137.0.2.36.209.126.14.213.236.13 

7.0.36.16.163.137.0.4.36.195.126 

.4422 

240 DATA 14,213.236.137.0.38.16. 

163.137.0.6.36.181.126.14.213.23 

6.137.0.40.16.163.137.0.8.36.167 

.126.14.213.166.137.0.42.161.137 

.0.10.36.154.126.14.213.15.21.40 

55 

250 DATA 0.0,16.166.8.21.70.0.16 

.142.16.70.190.192.6.134.3.126.1 

4.67.52.18.134.96.142.4.0.167.13 

2.48.137.0.1.140.6.0.38.245.53.1 

8.57.52.2.173.159.3131 

260 DATA 160.0.39.250.53.2.57.52 

.38.16.174.129.16.191.0.136.166. 



128.129.255.39.7.173.159.160,2.1 

26.15.165.53.38.57.4.37.68.73.82 

.69.67.84.79.82.89.32.83.3834 

270 DATA 79.82.84.32.85.84,73.76 

.73.84.89.255.4.160.73.78.83.69. 

82.84.32.68.73.83.75.69.84.84.69 

.32.73.78.32.68.82.73.86.69.32.4 

8.32.65.78.68.32.3314 

280 DATA 32.80.82.69.83.83.32.65 

.78.89.32.75.69.89.32.84.79.32.8 

3.79.82.84.32.68.73.82.69.67.84. 

79,82.89.46.255.4.165.83.79.82.8 

4.73.78.71.32.68.3358 

290 DATA 73.82.69.67.84.79.82.89 

.33.33.33.255.4.165.68.73.82.69. 

67.84.79.82.89.32.83.79.82.84.32 

.67.79.77.80.76.69.84.69.68.33.3 

3.33.255.0.0.0.3256 
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Not only does Tandy produce our favorite CoCo, we think it produces the best portable and 
MS-DOS computers as well. We've found that when satisfied Color Computer users decide 
to add portability or MS-DOS to their computing habits, many stick with Tandy. For these 
people we publish PCM, The Premier Personal Computer Magazine for Tandy Computer 

Users. 

Each month in PCM, you'll find information and programs for the Tandy 100, 102 and 200 
portable computers. And you'll find even more coverage for Tandy's MS-DOS machines — 
from the graphics of the 1 000 to the power of the 5000. 

PROGRAMS AND PROGRAM DISKS! 

We learned from THE RAINBOW that readers want programs to type in. so each month we 
bring you an assortment of them: games, utilities, graphics, and home and business 
applications. For those who don't have time to type in listings, we offer a companion disk with 
all the programs from the magazine. Also included in PCM each month is the Software 
Shopper, an "onmail" database service from which you can order the latest shareware 
products from our Delphi databases for Tandy MS-DOS and PC users — even if you don't have 
a modem! 

TUTORIALS AND PRODUCT REVIEWS! 

As if all this weren't enough, we offer regular tutorials on DeskMate, telecommunications 
and hardware; assembly language, BASIC and PASCAL programming tips; and in-depth 
reviews of the new software, peripherals and services as they are released. Add it all up and 
we think you'll find PCM to be the most informative an d fun magazine for this market today! 



YES! Please send me a one year (12 issues) subscription to PCM for only $28/ A 
savings of 22% off the newsstand price. 



Name 



Address 

City 

State _ 
ZIP 



In order to hold down costs, we do not bill. 

My check in the amount of is enclosed. 

Charge to my: 
□ VISA -I MasterCard J American Express 

Acct.# 



Exp. Date 



Signature 



To order by phone (credit card orders only) call 800-847-0309, 9 a.m. to 5 p.m. EST. For other inquiries call 502- 

228-4492. 

• Canadian subscribers U.S. $38 plus 7% GST. Surface rate elsewhere $64, airmail $85. Allow 6 to 8 weeks for first | 1 
copy. Kentucky residents add 6% sales tax. U.S. currency only, please. | 

Mail to: PCM, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 
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Computerized guidance for calculated risks 



Bond Calculator 



by Dale Tinklepaugh 




onds are sufficiently different 
from other investment forms to 
deserve special treatment. Bond 
prices fluctuate inversely with 
current market interest rates. 
This makes it hard to analyze the rate of 
return on a bond investment because the 
amount invested affects the calculation in a 
complex way. Bondcalc calculates two dif- 
ferent measures of rate of return: Current 
yield and yield to maturity. 

Before explaining how the program runs, 
a summary of bond concepts and terminol- 
ogy might be helpful. Once a bond is issued 
it can be sold several times during its term. 
or life. Maturity is the end of the bond's 
term. At maturity, the bond is redeemed for 
its face amount, called the par value. 

Unless the bond is a zero coupon bond, 
interest is paid periodically, usually semi- 
annually. A coupon is one of several promi- 
sory notes attached to some bonds. The 
coupons are detached and cashed in as the 
bond interest payments become due. Reg- 
istered bond holders automatically receive 
interest payments by mail from the issuing 
corporation. 



Dale Tinklepaugh lias been a professional 
programmer for several years in electrical 
engineering and graphics applications. He 
markets some of his own programs through 
his business. Prometheus Software. Dale, 
his wife and their two children enjoy camp- 
ing and spending time in the mountains. He 
can he contacted at P.O. Box 15859. Long 
Beach. CA 90815. Please include an SASl 
when requesting a reply. 



Debenture bonds are unsecured, whereas 
mortgage bonds are secured by specific 
corporate assets. A callable bond allows 
the issuing corporation to repurchase the 
bond on a certain date before maturity. An 
owner of a convertible bond can elect to 
exchange the bond for stock under speci- 
fied conditions. 

When interest rates of alternative in- 
vestments increase above the bond interest 
rate, investors have no incentive to pur- 
chase the lower interest bond unless the 
purchase price is discounted to compen- 
sate. On the other hand, when market rates 
are lower than a bond's rate, the bond 
owner will not sell unless paid a premium. 
or increased price. 

An investor is primarily interested in 
two measures of a bond's profitability. The 
first area of interest is the current yield. 
This is simply the ratio of annual inter- 
est to the bond's purchase price. It is 
useful when the bond is held for a short 
term, a year or two. and interest rates 
are expected to remain stable. A 
second measure for the rate of re- 
turn is known as the yield to ma- 
turity. This rate is figured with 
the purchase premium or dis- 
count apportioned equally 
among the remaining years of 
the bond's term. Hence a given 
purchase price results in a cer- 
tain rate of return for the remain- 
ing life of the bond. An exception 
is the callable bond when the call 
option is exercised. For a callable 
bond it is a good idea to prepare the 
yield to maturity calculation using the 



specific call conditions out lined in the bond 
agreement. 

Bondcalc takes a few seconds to per- 
form the yield to maturity calculation since 
there is no formula that gives an exact re- 
sult. The variable being solved for is an ex- 
ponent in two separate terms of the govern- 
ing equation. But given a value for the 
exponent, other terms can be calculated as 
desired. First, an approximation of the yield 
to maturity is obtained with a simplified 
equation. Then, the future value of the bond 
is computed using the approximate yield to 
maturity. The result should equal the par 
value of the bond. If not. the approximation 
is successively refined until the difference 
is less than 0.5 cents or until the yield to ma- 
turity is modified out to six decimal places. 
Only five of those deci- 
mal places are displayed 
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multiplied by 100 
to give the answer 
as a percent). 

The quoted price 
for a bond does not in- 
clude a small amount of interest ac- 
crued from the time of the last interest 
payment to the time of the sale. This amount 
is calculated at the time of the sale using the 
bond interest rate and using par value as the 
principle amount. This interest is added to 
the purchase price of the bond along with 
the commission. 

The Program 

The program presents a menu with the 
following five options: 1 ) Current Yield; 2 ) 
Yield to Maturity: 3) Price for a Current 
Yield; 4) Price for a Yield to Maturity; and 
5) Exit Program. Press the corresponding 
numbers to select a given option. When the 
Current Yield option is selected, you are 
asked to provide the relevant information 
to perform the calculation.The first ques- 
tion asks for the cost of the bond. This 
answer should be the price quoted for one 
bond. You are then asked for the interest 
rate in percent. If the bond is quoted as 
paying 10 percent, enter 10 and not 0.1. 

You might know the coupon amount, 
but need to calculate the interest rate. Many 



bonds come with a par value of 
St. ooo and ihe calculation can be 
done mentally. For example, two 
S40 semiannual coupons would mean an 
annual interest payment of S80, which di- 
vided by si .ooo equals .08 or 8 percent. For 
less trivial calculations, the program pro- 
vides a scratchpad to figure interest rates 
and commissions. It annoys me to pull out 
my pocket calculator when using my com- 
puter. 

To access the scratchpad, enter a nega- 
tive number such as - 1 . A negative interest 
rate is not proper input for these calcul- 
ations and the program interprets it as a 
signal to branch to the Scratchpad subrou- 
tine. The announcement, "Scratchpad In- 
voked" appears at the bottom of the screen. 
You are then asked for a number and an 
operation. The operations are +. -. *. / and 
R for addition, subtraction, multiplication, 
division and return, respectively. Enter the 
first number. Enter one of the first four op- 
erations. Then enter another number. You 
must then again enter an operation. This 
cycle is repeated until you enter R for 
return. When you return to the interest rate 
question, the last result is automatically 
carried there, multiplied by too and entered 
in the interest variable. 

Next, you are asked for the number of 



bonds and after that for the par value of 
each bond. Finally, you are asked for the 
amount of commission. If you do not know 
the commission terms, enter as your an- 
swer to get a result figured as if there is no 
commission. If you don't know the amount, 
but know the commission rate, enter a 
negative number to call up the scratchpad 
calculator. The commission is generally 
figured as so many dollars per bond rather 
than as a percentage of the par value. From 
the scratchpad, the last result is entered 
directly into the commission variable with- 
out alteration. 

After all the input data is entered, the 
current yield result is printed and you can 
decide whether or not to perform another 
calculation. Press Y to calculate another 
current yield or press N to return to the 
menu. If your printer is online, press P to 
get a screen dump. If printing does not 
begin after you press P. check the printer 
status. The program does not call the Print 
subroutine, so you must again press P after 
correcting the problem. 

The same basic questions are presented 
for the other three options. For the inverse 
calculations, you are asked for a percentage 
current yield or yield to maturity instead of 
being asked for the purchase price, which is 
then calculated and displayed after all other 



1990 COCO FEDERAL TAX 

by PURITAS SPRINGS SOFTWARE 

The leader in ColorComputertax software just got 
better! Completely revised for the 1 990 Tax season. Bigger, 
better, and faster! 

In his review of the 1987 edition. Ted Paul wrote: 
"This is an excellent program and manual, and I was in awe 
when the mail carrier handed me this huge bundle." COCO 
Clipboard Magazine. Mar/Apr 1988. 

♦THE Ultmate tax preparation package. * 1 00+ page manual . 
Tuns on any 64K COCO 1 , 2 or w/disk drive, *consists of 
3 diskettes, *menu driven, *loads & saves files to disk, 
♦prints to screen and/or prepares forms acceptable to IRS. 
♦format & organization follows IRS forms, ♦built- in 
calculator, ♦self checking for common errors and omissions, 
♦simple yet extensive editing features, *disk directory 
function, ♦Price - still only S39.95 

Includes: Form 1040; Schedules A. B, C. D. E, SE; 
Forms 2106. 2441, 4562; and State/Local Tax. Pension/ 
Annuity. Social Security. IRA worksheets and more. 

PURITAS SPRINGS SOFTWARE 

Ameritrust Building 

17140 Lorain Avenue 

Cleveland, Ohio 441 11 

(216)251-8085 



Qual lty 039 Sof t»irs 



rom 



ColorSystems 



Specialty Programs 
MVBanner Mrand Newl 

Ma-.e Printeo Banners 
in tne Multl-Vue 
Envtrorwer!. 
Features .■:..:■ 
'Pull Dawn' Menus 
On-Screen Previewing 
27 Built-in [nigas 
Tvo Cents. [nsge Eaitor 
snO Mucn Mora t 
512K end NQUSe/JOySUCk 
Required 

Only $20 

WPShel 

A Word Proccessmg 

Oriented Crepnics Snell 

A "Point end Click' 

[nterfece to ell you' 

Mora Processing Needs 

"Pull Down" Menus 

user Cuscomzaole 

Works wltn eny Editor. 

T«*t Pornette' t 

Spelling Checker 

"WPSftH a e bargem'. *<%* 

DeiePgchett Crly J«V 
Dtt '90 Rflnww 



AIL Programs 
Require Multl-Vue 

fcV.nCif.i Mctiu« &ji'E-'" 

Pleese add S3 For 

Overseas Snipnents 

nc Residents 

•do 5* Sales Tea 

ColorSyatoaa la pleaaed to 
announce affiliation vlth Ihe 

Interactive Media Syaleaa 
Developer'a Aaaoclatlon and 
plena to offer full auppor 1 
for the Mf/l and 09K ■IndOHa 



Games 
Minefield 

*o» «uv get a wcrr message 

ro "e«:s-.9'"*»s CM ■ 
Hrthvc stands Carreer yov 

See Bet tie 

' i *c. age.na: me cowpwtB' m 

a "earec oettfe at seat 3t me 

1 /•■ to V!- all of yov' 

».l J «*■■•* ias» 'area ic -n 

Other Geaee 
Pyrenld Solitaire 

3evie*ea In rne RelnDov 
OctODe' 1990 

KnighteBrldge 

A veriatton of Cness 
wltn renoonness tr»ro*n mi 

CoCothallo 

Otnello for CoCo3 
NOW! For 1 a 2 payer Game- 

CoCoYehtzee 

Dice Poker for CcCo3 
All genes in full color «no 
require e mouse or joystick 

All Genes just 510 eacn 

Or fl ny 3 for $25 



$40! 



Special Game Pack, all 
£ Genes an t"« sane dttk 

ColorSystems 
P.O. Box 540 
Castle Hayne, NC 28429 
(919) 675-1706 (voice) 
(919) 675-1847 (BBS) 

lownec & operacsd oy Zick C. Sessions! 
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data is entered. Years to Maturity is one 
additional item you are asked when deal- 
ing with yield to maturity. Enter the number 
of years between the purchase date and the 
maturity date. Another item for calcula- 
tion is Compounding Periods/Years. If 
interest is paid and compounded annually, 
enter 1 : if semiannually . enter 2. An aster- 
isk (*) before a prompt string indicates 
you can enter a negative number to invoke 
the scratchpad calculator. 

Forexample. consider Sam "s situation. 
Sam is considering the purchase of ten 
Si. 000 par value bonds issued by Amalga- 
mated Computer Company. The bonds 
pay 7 percent interest on a semiannual 
basis, quoted at S855 and mature in nine 



32K Extended 




115 185 

240 100 

330 74 

5030 63 

5080 218 

5180 184 

6055 150 

6120 80 

6180 63 

6440 40 

6830 24 

7040 58 

7140 66 

8030 206 

8075 118 

8150 219 

9030 149 

END 255 



The Listing: BONDCALC 

10 'BONDCALC 

20 'WRITTEN BY DALE TINKLEPAUGH 
30 'COPYRIGHT FEBRUARY 1991 
40 "BY FALSOFT. INC. 
50 "RAINBOW MAGAZINE 
105 CLEAR 200.16127 'SAVE SPACE 
FOR TEXT DUMP CODE 

107 POKE 150.18 'SET PRINTER TO 
2400 

108 ' TEXT DUMP ROUTINE 

110 DATA &H86.&HFE.&HB7.0.&H6F.& 

H8E.4.0.&H5F.&H5C.&HA6.&H80.&H81 

.&H60 

115 DATA &H2B.2.&H84.&HBF.&HAD.& 

H9F.&HA0.2.&HC1.&H20.&H28.&HEF.& 

H86.&H0D 

120 DATA &HAD.&H9F.&HA0.2.&H8C.6 

.0.&H2B.&HE3.&H7F.0.&H6F.&H39 

125 FOR 1-16128 TO 16128+40 

130 READ A:P0KE I. A 

135 NEXT I 

140 DEFUSR0-&H3F00 

202 F2$-'W#" : F3$-"#### . ##" i B 

LS-" 



years. His broker said that commission on 
the transaction is S50. After loading and 
running Bondcalc, Sam pressed 1 to evalu- 
ate the current yield. He entered 855 as the 
cost of the bond; 7 for the interest rate; 10 
for the number of bonds: 1 .000 for the par 
value: and 50 for the commission. The 
resulting current yield displayed 8.140 
percent. 

Sam pressed N to exit the Current Yield 
section of the program. From the menu he 
selected 2 to calculate the Yield to Matur- 
ity. This time he entered 855 as the cost of 
the bond: 2 for compounding periods/ 
year: 7 for interest rate; 10 for number of 
bonds; and 1.000 for par value. Next, he 
entered 9 for years to maturity and 50 for 



commission. The answer was 9.33? per- 
cent. Note that since the $145 discount is 
figured in. the Yield to Maturity is over I 
percent higher than the Current Yield. 
Sam can now compare this rate of return 
with his other investment options. 

As a final note, if you receive an ?0M 
error, reset the computer, enter PCLEAR1 
and run the program again. 

References 

Kurtz. M., Engineering Economics/or 
Professional Engineers ' Examinations. 
2nd Ed.. McGraw-Hill. New York. 1975 

McCready. R.. Business Mathemui'n 'i . 
4th Ed.. Kent Publishing Co.. Boston. 1982 

□ 



205 F1$--$J#######.##":P$-"PRESE 

NT VALUE IS" 

207 'MAIN BODY 

210 CLS 

230 PRINTOll. "BONDCALC" 

235 PRINTS40. "COPYRIGHT 1988" 

240 PRINT@70."BY DALE TINKLEPAUG 

H" 

250 PRINTS131. "SELECT CONVERSION 

RESULT" 
260 PRINT@194."1 CURRENT YIELD" 
270 PRINT@226."2 YIELD TO MATURI 
TY" 

280 PRINT@258."3 PRICE FOR A CUR 
RENT YIELD"" 
290 PRINT@290."4 PRICE FOR YIELD 

TO MATURITY"" 
295 PRINT@322."5 EXIT PROGRAM" 
300 PRINTS385. "PRESS A NUMBER BE 
TWEEN 1 AND 5" 

310 A$-INKEY$:IF A$-""G0T0 310 
320 CASE-INSTRd. "12345". A$) 
330 ON CASE G0SUB 5000.6000.7000 
,8000.500 
340 GOTO 210 
500 STOP 

600 'END OF MAIN BODY 
1140 'CHECK TO SEE IF PRINTER IS 

ON LINE 
1150 PR-PEEK(65314):IF INT(PR/2) 
-PR/2 THEN QQ-1 ELSE QQ-0 
1160 RETURN 
5000 'CURRENT YIELD 
5010 CLS:PRINT@98. "CURRENT YIELD 

5020 PRINT" ": INPUT-ENTER COST 

F B0ND":CPSH 

5030 INPUT"*INTEREST RATE (%)":C 

UPN: IF CUPN<0 GOSUB 9000 'TO SCR 

ATCHPAD 

5032 IF CUPN<0 THEN PRINT@192.BL 

$; 

5035 IF CUPN<0 THEN CUPN-POP*100 

:PRINT@192. "INTEREST RATE- ":CUP 

Hi* %" 

5040 INPUT-NUMBER OF BONDS" :NSHR 

S 

5050 INPUT"PAR VALUE";PAR 

5060 INPUT"*COMMISSION";COMM:IF 



COMM<0 GOSUB 9000 

5062 IF COMM<0 THEN PRINT@288.BL 

$: 

5065 IF COMM<0 THEN C0MM-P0P:PRI 

NT@288. "COMMISSI ON- ":C0MM 

5070 PUPR-CPSH*NSHRS+COMM 

5080 DIV-CUPN*PAR*NSHRS/100 

5090 CRYLD-DIV/PUPR 

5100 PRINT"CURRENT YIELD IS"; 

5110 PRINTUSING F3$; CRYLD*100:: 

PRINT" %" 

5120 PRINT"D0 ANOTHER? (Y OR N)" 

5135 GOSUB 1150 

5140 IF QQ-1 THEN PRINT" (PRESS 

P TO PRINT OUT SCREEN)"; 

5150 GOSUB 1150:A$-INKEY$:IF A$- 

"" THEN GOTO 5150 

5160 IF A$-"P" AND QQ-1 THEN A-U 

SR0(0) 

5170 IF A$-"Y" THEN GOTO 5010 EL 

SE IFA$-"N" THEN RETURN ELSE GOT 

5150 

5180 RETURN 

6000 ' YIELD TO MATURITY 

6010 ' FIRST GET INPUT DATA AND 

6015 ' FIGURE APPROXIMATE SOLUTI 

ON 

6017 ' BY FORMULA 

6030 CLS:PRINT@98. "YIELD TO MATU 

RITY" 

6040 PRINT" ":INPUT"ENTER COST 

F B0ND":CPSH 

6045 INPUT"C0MP0UNDING PERIODS/Y 

EAR":NP 

6050 INPUT"*1NTEREST RATE (%)";C 

UPN: IF CUPN<0 GOSUB 9000 

6052 IF CUPN<0 THEN PRINT@224.BL 

$: 

6055 IF CUPN<0 THEN CUPN-POP*100 

:PRINT@224, "INTEREST RATE- ";CUP 

N;" %" 

6060 INPUT-NUMBER OF BONDS";NSHR 

S 

6070 INPUT"PAR VALUE";PAR 

6080 INPUT-YEARS TO MATURITY";YR 

S 

6090 INPUT"*COMMISSI0N":COMM:IF 

COMM<0 GOSUB 9000 

6092 IF COMM<0 THEN PRINT@352.BL 

$: 
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6095 IF COMM<0 THEN COMM-POP:PRI 

NT@352. "COMMISSION- ";COMM 

6100 DIV-CUPN*PAR*NSHRS/100/NP 

6110 API-(PAR*NSHRS+NSHRS*CPSH+C 

OMM)/2 

6115 'PREMIUM OR DISCOUNT 

6120 PORD-CPSH*NSHRS+COMM-PAR*NS 

HRS 

6130 AYTM-(NP*DIV-PORD/YRS)/API: 

GOSUB 6400 

6140 PRINT-YIELD TO MATURITY" 

6150 PRINTUSING F3$ :AYTM*100; : PR 

INT" %" 

6155 PRINT"DO ANOTHER? (Y OR N)" 

6157 GOSUB 1150 

6160 IF QQ-1 THEN PRINT" (PRESS 

P TO PRINT OUT SCREEN)"; 

6170 GOSUB 1150:A$-INKEY$:IF A$- 

"" THEN GOTO 6170 

6175 IF A$-"P" AND QQ-1 THEN A-U 

SR0(0) 

6180 IF A$-"Y" THEN GOTO 6030 EL 

SE IF A$-"N" THEN RETURN ELSE GO 

TO 6170 

6190 RETURN 

6400 'PLUG APPROXIMATION INTO FO 

RMULA & ITERATE UNTIL WITHIN $.0 

05 

6405 RVAL-PAR*NSHRS:INC-.01:OLDI 

R-0 

6410 FP-(1+AYTM/NP) A (YRS*NP) 

6420 FA-(((1+AYTM/NP) A (YRS*NP))- 

1)/(AYTM/NP) 

6430 FVAL-(CPSH*NSHRS+COMM)*FP-F 

A*DIV 

6435 'PRINT" INC- ": INC:" DR- ":D 

R.-AYTM- ":AYTM;" FVAL- ";FVAL;" 



RVAL- ";RVAL:STOP 'FOR DEBUGGI 
NG 

6440 IF FVAL>RVAL GOTO 6600 
6450 IF FVAL<RVAL GOTO 6800 
6460 RETURN '- SO DONE 
6600 'APPROXIMATION TOO HIGH 
6602 IF ABS(FVAL-RVALX.005 THEN 

RETURN 
6605 UB-AYTM:DR--1 
6620 IF(DROOLDIR)AND (OLDIRO0) 
THEN INC-INC/10: IF ABSUNCK.000 
001 THEN RETURN 'CLOSE ENOUGH 
6625 AYTM-AYTM-INC 
6630 OLDIR-DR:GOTO 6410 
6800 'APPROX TOO LOW 
6810 IF ABS(FVAL-RVALX.005 THEN 

RETURN 
6815 LB-AYTM:DR-1 
6830 IF(DROOLDIR)AND(OLDIR<>0) 
THEN INC-INC/10: IF ABSdNCX. 000 
001 THEN RETURN 
6835 AYTM-AYTM+INC 
6840 OLDIR-DR:GOTO 6410 
7000 'PRICE FOR A CURRENT YIELD 
7010 CLS:PRINT@98. "PRICE FOR A C 
URRENT YIELD" 

7020 PRINT" ":INPUT"DESIRED CURR 
ENT YIELD (%)" :C :CRYLD-C/100 
7030 INPUT"*INTEREST RATE U)":C 
UPN: IF CUPN<0 GOSUB 9000 
7032 IF CUPN<0 THEN PRINT@192.BL 
t 
7035 IF CUPN<0 THEN CUPN-POP*100 

:PRINT@192. "INTEREST RATE- ":CUP 
N:" %" 

7040 INPUT"NUMBER OF BONDS":NSHR 

S 



7050 INPUT-PAR VALUE": PAR 

7060 INPUT"*COMMISSION":COMM:IF 

COMM<0 GOSUB 9000 

7062 IF COMM<0 THEN PRINT@288.BL 

$: 

7065 IF COMM<0 THEN PRINT@288."C 

OMMISSION- ":COMM 

7070 DIV-CUPN*PAR*NSHRS/100 

7080 CPSH-(DIV/CRYLD-COMM)/NSHRS 

7090 PRINT-PRICE PER SHARE IS" 

7100 PRINTUSING F1$:CPSH 

7120 PRINT"DO ANOTHER? (Y OR N)" 

7125 GOSUB 1150 

7130 IF QQ-1 THEN PRINT" (PRESS 

P TO PRINT OUT SCREEN)": 

7140 GOSUB 1150:A$-INKEY$:IF A$- 

"" THEN GOTO 7140 

7150 IF A$-"P" AND QQ-1 THEN A-U 

SR0(0) 

7160 IF AS-"Y" THEN GOTO 7010 EL 

SE IF A$-"N" THEN RETURN ELSE GO 

TO 7140 

7170 RETURN 

8000 'PRICE FOR A YIELD TO MATUR 

ITY 

8010 CLS:PRINT@98. "PRICE FOR YIE 

LD TO MATURITY" 

8015 PRINT" ":INPUT"COMPOUNDING 

PERIODS/YEAR":NP 

8020 INPUT"YIELD TO MATURITY (%) 

":Y:YTM-Y/100/NP 

8030 INPUT"*INTEREST RATE (%)":C 

UPN: IF CUPN<0 GOSUB 9000 

8032 IF CUPN<0 THEN PRINT@224.BL 

$: 

8035 IF CUPN<0 THEN CUPN-POP*100 

:PRINT@224. "INTEREST RATE- ":CUP 



m®$ 



EVERYONE'S TALKING ABOUT... 

DUAL HI-RES JOYSTICK ADAPTER 

Colorware Hi-Res Tandy Hi + Low 

Res, cassette jack S40 

HI & LO-RES JOYSTICK ADAPTER 
Tandy Hi + Lo-Res 127 

HAWKSoft keyboard cable 125 

DOMINATION war game S18 

MYDOS extended DOS for you! S15 

HAWKSoft 

P.O. Box 7112 Elgin, II 60121 

(708) 742-3084 eves and ends 

SASE for more info and price list. 

S/H ( US & CAN ) always included 

M.O. Check C.O.D. no credit cards 

1 year warranty on ALL hardware !! 




Sub-Etha Software was formed by two loyal CoCo hackers in support of the Color 
Computer's future. We pledge ourselves to service and support of our products 
and since we program our own software we should be able to answer any 
questions you may have. We are looking for ways to help the Color Computer 
and need your input as you ARE the Color Computer. Please write to us for 
information on what you can do to help! And now the plug... 

• : MlnlBannen by Allen Huffman :• 
Print single or multiple-line banners on ANY printer! Supports graphic and non- 
graphic printers (like daisy wheels and even the TP-10). Independently sized text 
on each line. Menu driven and easy to use. Comes with dozens of fonts! 

Req: CoCo 3, Disk Drive. Any Printer $".95 

• : MultlBasIc by Terry lodd :• 
More memory for Basic without learning new commands! Create massive 
modular programs using normally "wasted" memory In your CoCo 3 Share 
subroutines, pass variables, disk chain, and toad multiple programs Into memory 
at once. Includes run-time version for you to distribute with your own programs! 

Req: 128/512K CoCo 3, Disk Drive $29.95 

•: Shadow BBS by Terry Todd :• 
New Version! A complete RS-Dos BBS with low hardware requirements! Power, 
speed and flair on the CoCo 3. Supports RS232 pak or serial (printer) port. Up to 
255 msg. areas, clock, downloads. ANSI, user profiles, surveys, one-liner "quotes", 
automessage , caller log, onscreen status window, and much more! Ready to run 
but customizable. Call the Sub-Etha Support BBS at (40°) 63-REALM. 

Req: 128K CoCo 3, Disk Drive (s), Modem $39.95 

Call or write - We have more products! Programmer* - We are looking for new 

software. CoCo Clubs and Educators - Call about special discounts. 

All orders in U.S. funds, please. 



Sub-Etha Software Call or Write for Information! 

P.O. Box 1 52442 Add $2.50 S&H and $3.50 C.O.D. 

Lufkin, Texas 7591 5 Texas residents add 8.25% tax. 

(409) 639-ETHA |3842] "Don't Panic — Wc ship Fast!" 
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8040 INPUT-NUMBER OF BONDS":NSHR 

S 

8050 INPUT"PAR VALUE";PAR 

8060 INPUT-YEARS TO MATURITY":YR 

S 

8070 INPUT"*COMMISSION";COMM:IF 

COMM<0 GOSUB 9000 

8072 IF COMM<0 THEN PRINT@352.BL 

S: 

8075 IF COMM<0 THEN COMM-POP:PRI 

NT@352. "COMMISSI ON- ";COMM 

8080 DIV-CUPN*PAR*NSHRS/100/NP 

8090 FP-(1+YTM)"(YRS*NP) 'FUTURE 

VALUE OF PRESENT SUM FACTOR 
8100 FA-(((1+YTM)"(YRS*NP))-1)/Y 
TM "FUTURE VALUE OF UNIFORM SER 
IES FACTOR 

8110 CPSH-(((PAR*NSHRS+FA*DIV)/F 
P)-COMM)/NSHRS 
8115 PRINT-PRICE/BOND" 



8120 PRINTUSING F1$;CPSH 

8130 PRINT"DO ANOTHER? (Y OR N)" 

8135 GOSUB 1150 

8140 IF QQ-1 THEN PRINT"(PRESS P 

TO PRINT OUT SCREEN)": 
8150 GOSUB 1150:A$-INKEY$:IF A$- 
" " THEN GOTO 8150 
8155 IF A$-"P" AND QO-1 THEN A-U 
SR0C0) 

8160 IF A$-"Y" THEN GOTO 8010 EL 
SE IF A$-"N" THEN RETURN ELSE GO 
TO 8150 
8170 RETURN 
9000 'SCRATCH PAD 
9010 PRINT@384. "SCRATCH PAD INVO 
KED" 

9015 PRINT@416."";: INPUT-ENTER N 
UMBER ";POP 
9017 PRINT@448.BL*: 
9020 PRINT@448. "ENTER OPERATION 
(+-*/R)": 



9030 B$-INKEY$:IF B$-"" GOTO 903 



9040 CASE-INSTR(l,"+-*/R".B$):IF 

CASE-0 GOTO 9030 
9045 IF CASE-5 THEN PRINT@384.BL 
$;:PRINT@416.BL$::PRINT@448.BL$: 
:PRINT@480.BL$:: RETURN 
9055 PRINT@448.BL$::PRINT@448.B$ 
;" ";: INPUT-ENTER NUMBER" :NUM 
9060 ON CASE GOTO 9100.9200.9300 
.9400.9500 

9100 P0P-P0P+NUM:PRINT@416.BL$ 
PRINT@431.P0P;:G0T0 9020 
9200 P0P-P0P-NUM:PRINT@416.BL$ 
PRINT@431.P0P; :GOTO 9020 
9300 P0P-P0P*NUM:PRINT@416.BL$ 
PRINT@431.P0P::G0T0 9020 
9400 P0P-P0P/NUM:PRINT@416.BL$ 
PRINT@431.P0P::G0T0 9020 
9500 RETURN 
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novices niche 



Utility 



16K Extended 



Timer 

by Richard Larson 

This is a timer program. It counts 
down from a time determined by the user. 
It also functions as a rudimentary stop- 
watch by counting elapsed time. 

The program uses the TIMER function 
of Extended basic. The timer is set to 
zero. Every time it reaches 60. variable SS 
(seconds) is incremented. When SS 
reaches 60. MM (minutes) is incremented. 
The program can easily be customized to 
suit individual needs. 

The Listing: TIMER 

1 'TIMER 

2 'WRITTEN BY RICHARD LARSON 

3 "COPYRIGHT FEBRUARY 1991 

4 "BY FALSOFT. INC. 

5 "RAINBOW MAGAZINE 

10 MM-0:SS-0:CLS:PRINT"T1MER PRO 

GRAM" 

20 PRINT"1> COUNT DOWN 

2> ELAPSED TIME" 
30 INPUTAS 

40 IF A$-"l" THEN 50 ELSE IF A$- 
"2" THEN 180 ELSE 30 



50 INPUT-ENTER MINUTES":M 

60 INPUT-ENTER SECONDS":S 

70 IF S>59 THEN 60 

80 TIMER-0 

90 IF MM-M AND SS-S THEN GOTO 15 



100 SS-INT(TIMER/60) 

110 IF SS>59 THEN MM-MM+1: GOTO 

80 

120 PRINT@32*9. "SECONDS: ":SS 

130 PRINT@32*8. "MINUTES: ":MM 

140 GOTO 90 

150 SOUND100.1:PRINT@32*11."TIME 

•S UP" 

160 INPUT-AGAIN Y/N":X£: IF X$-"Y 

" THEN 10 ELSE END 

170 GOTO 10 

180 CLS:MM-0:PRINT@10."TIME ELAP 

SED" 

190 PRINT@32. "PRESS ANY KEY TO S 

TART" 

200 IF INKEY$-"" THEN 200 

210 PRINT@32. "TIMER STARTED - AN 

Y KEY TO STOP" 

220 TIMER-0 

230 SS-INT(TIMER/60) 

240 IF SS>59 THEN MM-MM+1 :SS-0:G 

OTO 220 

250 PRINT@200.MM:":":SS 



260 IF INKEYS-"" THEN 230 ELSE 2 

70 

270 PRINT"ELAPSED TIME - ";MM:"M 

INUTES":SS:"SECONDS" 




/«\ 
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SPECIAL 
OF THE MONTH 

DRIVE CARDS 

For model 1000. SX. TX. SL. TL. 3000. 3000NL 



TANDY" ADD-ONS 

20 Meg Drive Card 65 MS $269.95 

20 Meg Drive Card 45 MS $289.95 

32 Meg Drive Card 45 MS $299.95 

40 Meg Drive Card 60 MS $339.95 

49 Meg Drive Card 32 MS $399.95 

64 Meg Drive Card 23 MS $539.95 
Call lor current pricing 





TDP/2 
$699.95 

30-Day 
Money Back Guarantee 
you can't lose! 











IDP 2 
TDP/2 

• «>.- . , — - -aw, i«- earn comj 

• JVfVWHH 


V«f»US 


Tandy U ? 
Tandy TL/2 

• ■»• * »«■ SIM ■■ 1 IM *» •» 

■ B^--o— BOB' 

.;*«..>« 


»*k- •-•*..< 


■ MCiHW 

■ (TOO*. 


• IWH.IM 

. If — — «»W*w< 





TDP/2 Options: 

. 12 monochrome monitor $89.95 • 1 44 Meg lloppy $119.95 

. 14 CGA momior $279.95 • 720K lloppy $99.95 

. 14" EGA monitor & card $499.95 • 360K lloppy $99.95 

. 14 VGA monitor card $599.95 • 20 Meg dnve $279.95 

. 1 2 Meg lloppy $119.95 • 40 Meg drive $349.95 



External Hard Drives tor Tandy EX, HX Computers 

Complete System - just plug in (requires 384K mm.) 



20 Meg 



$389.95 30 Meg $429.95 
40 Meg $499.95 



Now we carry IDE Drives tor new Tandy s 



20 Meg - CALL 40 Meg - CALL 



r 100. SX, TX. SL. TL, 3000, 4000 — | 

2nd Floppy 

360K TEAC $119.95 

720K Mitsubishi $99.95 
3 V 2 " Mitsubishi $119.95 



1000, SX, TX. SL. TL 

Hard Drive 
Controller 

Will run 1 or 2 

Hard Drives 

Supports drives up to 120 megabytes 



$99.95 



• 1000. 1000A 



Memory Board 
with 512K 

Expands memory to 640K 

$199.95 



r 1000. SX, TX. SL, TL. 3000. 4000 — | 

Memory Upgrades 

From 

$50 



Tandy EX. HX — 

360K or 720K 
External 
Floppy 

For EX or HX 

$139.95 



Tandy EX, HX 

External 
Hard Drive 

10 Meg $299.95 

20 Meg $389.95 

30 Meg $429.95 

40 Meg $499.95 



- Tandy EX, HX 



384K Memory 
Expansion Card 

Includes 384K 

$189.95 



— Color Computer — 

Drive O 

Includes lloppy drive, case 

& power supply 

controller & sottware 

$179.95 



Tandy 1400 LT 

360K 
External 
Floppy 
$199.95 



Tandy 1400 LT 



720K 

External 

Floppy Drive 

$199.95 



- Tandy 1400 LT - 

20 Meg 

Internal 

Hard Disk 

Drive 
$699.95 



Color Computer • 



Drive O + 1 

Includes 2 lloppy drives, case 

& power supply 

controller & software 

$269.95 



Tandy is a registered trademark ol Tandy Corporation 

TRUE DATA PRODUCTS 

P.O. Box 347, 115 So. Main Street 
Uxbridge. MA 01569 

Tel. 508-278-6555 
1-800-635-0300 

Hours: 9 am -6 p.m., Sat. 10 a.m -4 p.m. 




isi quality 
merchandise 

QUALITY 

CUSTOMER SERVICE 

TECHNICAL ASSISTANCE 

508-278-6556 
FOR YOUR PROTECTION 

WE CHECK FOR 
STOLEN CREDIT CARDS 



CORPORATE P O 5 WELCOMED 

ALL PACKAGES SHIPPED UPS EXCEPT CANADA 

AND APOl C » ADD $3 30 MASTERCARD 

VISA ADO 8*. 

ALL RETURNS MUST HAVE RMA« (CALL 50H-27J- 

6555) YOU MAY BE SUBJECT TO A RESTOCK 

ING FEE SHIPPING HANDLING CHAPGES 

NONREFUNDABLE 

I YEAR WARRANTY UNLESS OTHERWISE NOTED 

PRICES TERMS-CONDITIONS SUBJECT TO 

CHANGE WITHOUT NOTICE 



Branching out to monitor directory growth 



A Tree Grows in OS-9 



M, 



lany people use computers to help or- 
ganize their work or home needs. And com- 
puters handle this task efficiently. But how 
efficient is the system if we don't know 
what's on it? How do you see the contents 
of an entire OS-9 disk? I used toexecute di r 
for the root directory and then repeat dir 
for each subdirectory. I also used dir for 
deeper subdirectories if they existed. Now 
I use Tree. 

Tree is a program that displays the names 
of all the files on a disk, with graphics 
depicting the directory tree on a text screen. 
Tree can also be used to display a selected 



Stephen Goldberg is a dentist and the au- 
thor of the Utilipak series of OS-9 utilities. 
He can be contacted at 695 Plainview 
Road, Bethpage. NY 11714. 
Please include an SASE 
when requesting a 
reply- 



by Stephen B. Goldberg 

portion of the directory structure of a disk. 
To start the program, type tree, fol- 
lowed by the name or pathlist of the direc- 
tory you want displayed first, and press 
ENTER. For example, to see the entire direc- 
tory tree on the disk in Drive /dl. use 

tree /dl <ENTER> 

To see only part of the tree structure, use 
a command line such as 

tree /dl/redpes <ENTER> 

Part of the resulting display is shown in 
Figure 1 . As you can see, each subdirectory 
is indicated by a double asterisk (**) pre- 
ceding the name. The subdirectory's file- 
names are offset to the right. The 
program's standard output 
path can be redirected 
to another 
file or 




OS* tree /dl/recipes 

Directory tree structure for: /dl/recipes 

** BREAKFAST 




** 'CEREAL 
j — v 

*,* COLD 

v 



to the printer for a permanent record of the 
file structure: 

tree /dl >/p <ENTER> 

To exit before the program is finished, 
press the space bar. Don't press BREAK or 
you might be left with processes running in 
the background. 

The Program 

Tree opens the directory indicated on 
the command line. It then reads and dis- 
plays each filename found. It reads the 
attribute byte in the file descriptor to see if 
the entry is a subdirectory. If the file is not 
a subdirectory, the program continues to 
read and display filenames to the end of the 
directory. If an entry is a subdirectory, the 
program executes itself again using the 
subdirectory name as the parameter. This 
process is called recursion. When the sub- 
directory has been completely displayed, 
this new process is terminated and the 
program returns to its original format and 
continues to display any further entries. 

If you don't have the OS-9 assembler. 

enter and run Listing 2. This BASIC09 
program generates the executable file 
for Tree. Q 



HOT 



corn-flakes; 
puffed. rice 



— -v 
farina 
oatmeal 



EGGS 



v 

poached 
scrambled 
breakfast . nutr it ion 
** | LUNCH 
-v 



i 



etc. 




Figure 1: Viewing 
Partial Command Line 
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Listing 1: Tree. asm 



TREE 



(c) 1989 by STEPHEN B. GOLDBERG 



* Use: tree <start_directory> 

* display directory tree 

* hit <SPACE> to exit program 

* 

1fpl 

use /dd/defs/os9defs 

endc 



di rpath 

dlskpath 

offcount 

pointer 

ender 

attrbuf 

prebuf 

buffer 

hiseek 

loseek 



dsiz 

* 

name 



header 

headlen 

dot 



mod 

rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
rmb 
equ 

fcs 
fcb 
fee 

fee 
equ 
fcs 



1 en. name. prgrm+objet .reent+1. entry. dslz 

directory path number 
disk path number 
offset count 
parameter name pointer 
end of filename pointer 
file attribute buffer 
directory star buffer 
f 1 lename buffer 
descriptor sector offset 



1 

1 

1 

2 

2 

1 

3 

30 

2 

2 

200 

200 



stack 
parameter 



/Tree/ 

2 edition number 

/(c)19B9 S.B.Goldberg/ 

/Directory tree structure for: / 

*-header 

/./ current directory 






OS9/68000 
JUST THE FACTS! 

The PT68K4 SINGLE BOARD 
COMPUTER - As seen at the 
ATLANTA COCOFEST -is available 
for IMMEDIATE SHIPMENT in 
Assembled or Kit Form! 

Upgrade to a powerful 68000 
microprocessor on an XT-size system 
board with 4 serial/2 parallel ports 
and up to 12MB of memory. The 
K4 is IBM PC/XT hardware 
compatible - and also supports VGA. 
SVGA plus high density floppy 
drives! 

16MHZ PT68K4 Assembled Board 
with 1MB DRAM - $599.00 

BARE BONES KIT: System Board, 
1MB RAM, Cabinet, PS, High 
Density Floppy, OS9 - $999.00 

Professional OS9 Operating System 
with C COMPILER $299.00 

See the DELMAR AD for systems 
information! 

PERIPHERAL 
TECHNOLOGY 

1480 TERRELL MILL RD. #870 
MARIETTA. GA 30067 

404/984-0742 
OS9 ii ■ trademark of Mieroware 



at 


fcs 


191 


************************ 


* INITIALIZE 




************************ 


entry 


decb 






lbeq 


syntax 




stx 


pointer 




clr 


offcount 




clr 


1+loseek 




clr 


attrbuf 




ldd 


#$2a7c 




sta 


prebuf 




std 


1+prebuf 


f indend 


ldd 


,x+ 




empa 


#$20 




bhi 


flndend 




tsta 






bne 


setend 




stb 


offcount 


setend 


Ida 


#S0d 




sta 


-1.x 




Idx 


pointer 




Ida 


ffread. 




os9 


itchgdlr 




bes 


cantopen 




leax 


<dot.pcr 




Ida 


#read.+d 




os9 


1$open 


cantoper 


lbcs 


cant 




sta 


dirpath 




leax 


<at.pcr 




os9 


Uopen 




bes 


passerrl 




sta 


dlskpath 




ldb 


offcount 



entire disk 



******* 



ir. 



parameter? 

no. prompt and quit 

save parameter pointer 

zero offset count 

zero lsb descriptor offset 

clear attribute buffer 

*| 

initialize subdirectory 

star Indicator 

parameter characters 

end of parameter? 

no. look again 

yes. forked process? 

no. terminate directory name 

save offset count 

carriage return 

to end of directory name 

parameter pointer 

read mode 

change directory 

message and quit on error 

current directory ( . ) 

read directory mode 

open the directory 

message and quit on error 

save directory path number 

entire disk 

open disk 

exit with error 

save disk path number 

subdirectory offset? 



Classic Solitaire 

Klondike • Pyramid • Canfield 



' ® © © © " 


E)!®i 


pm 


B 


§ J 




©©©© 



© 



©a® 



Play these classic favorites in 16 color high-res graphics 
128KCoCo3 One Disk Drive Joystick S 14.95 



La Belle Lucie Solitaire 

This solitaire is not for the faint of heart! Hoyle rules. 

128KCoCo3 One Disk Drive _ Joystick _ $14-95^ 

software submissions invited 



Tazman (CoCo3)(requires OS9/II & 512K) $24.95 

(A game of Space Commerce) 
Armchair Admiral (CoCo3) $14.95 

(Battleship - play friends or computer!) 
Riddle of the Ring (CoCo3/CoCo2) $10.00 

(Text adventure) 
Games Pack I (CoCo3/CoCo2) $10.00 

(Hangman, Concentration. Mastermind) 
Zenix (CoCo3) $29.95 

(Arcade. Superb graphic movement) 
Zenix Demo Disk (CoCo3) $2.00 



,V<Vi>S\V%V>i%W<VA>»' 



Checks, Money Orders, MasterCard & Visa $2.00 S&H. 
COD additional $2.00. WA addresses add 8.2% sales tax. 

30 day money back guarantee 
(206) 653-5263 



Eversoft Games, Ltd 

P.O. Box 3354 
Arlington, Wa 98223 



10am - 6pm PST 
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bne doarrow yes. display subdirectory arrow 


leax name. per 


program name (Tree) 




leax <header.pcr no. header message 


ldd #$1101 


type/lang and data size 




ldy #headlen message length 


pshs u 


save U register 




lbsr prlntl message to screen 


leau buffer. u 


parameter buffer 




ldx pointer parameter pointer 


ldy #40 


maximum parameter length 




bra passname directory name to screen 


os9 fJfork 


fork to Tree again 




* 


passerrS bes out 


exit with error 




arrow fee / | v/ subdirectory arrow offset 


puis u 


retrieve U register 




feb $0d 


os9 fSwalt 


wait till done 




offset fee / / filename offset 
offlen equ '-offset 


tstb 


error passed? 




bne out 


yes. exit with error 




* 


lbra read 


no. get next entry 




doarrow decb subtract arrow offset 


* 






bsr dooffset add any additional offset 


print ldy #200 


maximum length 




leax <arrow.pcr arrow display 


prlntl Ida #1 


standard output path 




passname bra doname to screen 


os9 1$wr1tln 


to screen 




* 


bes out 


exit with error 




dooffset leax <offset.pcr offset address 


rts 


return 




ldy #offlen offset length 


****************************** 




offloop decb display offset? 


* ERROR MESSAGES 






bmi back no. return 


****************************** 




lbsr prlntl yes. offset to screen 


error empb #e$eof 


end of file? 




bra offloop check for more offset 


bne out 


exit with other error 




back rts return 


noerr clrb 


clear error flag 




it**.***************.******.** 


out os9 f$ex1t 


quit 




* GET FILENAME 


* 






****************************** 


cant leax <nodir.pcr 


can't find message 




read ldd #J27 keysense function 


ldy #nod1rlen 


length of message 




os9 1$getstt check for keypress 


bsr prlntl 


message to screen 




tsta <SPACE> pressed? 


ldx pointer 


parameter pointer 




Ibm1 noerr yes. quit tree 


bsr print 


directory name to screen 




leax buffer. u filename buffer 


os9 fSperr 


print error 




ldy #29 maximum fllname length 


bra noerr 


quit 




Ida dirpath directory path number 


• 






os9 Uread get filename 


syntax leax <sprompt.pcr syntax prompt 




lbcs error branch on error 


bsr print 


to screen 


' 


leax hlseek.u descriptor offset buffer 


bra noerr 


quit 




ldy #3 three descrlp. offset bytes 


* 






os9 1$read get them 


nodir fee /**** Can - t 


change directory to: / 




passerrl bes passerr2 exit with error 


sprompt feb 7 






leax buffer. u start of filename 


nodirlen equ *-nod1r 






Ida ,x filename character 


fee "Use: tree 


<start ^directory)" 




anda #$7f clear ms bit 


feb $0d 






empa #'A valid filename? 


* 






bio read no. get next entry 
lastloop Ida .x+ last character? 


emod 






len equ * 




bpl lastloop no. look again 


end 






anda #t7f yes. clear ms bit 








Idb #$0d carriage return 








std -1.x to end of filename 








stx ender save end address 








****************************** 








* CHECK FOR DIRECTORY 








****************************** 








ldx hiseek ms offset bytes 








pshs u save U register 








ldu loseek Is offset bytes 








Ida diskpath disk path number 








os9 Useek find descriptor sector 








passerr2 bes passerr3 exit with error 








puis u retrieve U register 








ldy #1 one byte 








leax attrbuf.u attribute buffer 








os9 1$read get attribute byte 








bes passerr3 exit with error 








****************************** 








* DISPLAY FILENAME 








****************************** 








ldb off count offset count 








bsr dooffset offset to screen 








leax buffer, u buffer address 








tst attrbuf directory? 








bpl doname no. just display filename 








leax -3.x yes. display stars 








doname bsr print filename to screen 








tst attrbuf directory? 








bpl read no. get next filename 








****************************** 








* RE-EXECUTE TREE IF DIRECTORY 








****************************** 








ldx ender end of directory name 








clra fork flag 








ldb offcount get offset 








incb add 1 to offset 








std .x++ to end of pathllst 








Ida #!0d terminator ;i|| 








sta ,x terminate new parameter .-' •■ 
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Listing 2: MakeTree.b09 



PROCEDURE MakeTree 

0000 (* Generates the binary module tree *) 

0026 (* Level I - change all /dd to /d0 *) 

004B DIM path.byt:BYTE 

0056 DIM count:INTEGER 

005D PRINT "Creating tree . . .": 

0075 CREATE #path ."/dd/cmds/tree" :WRITE 

008D FOR count-1 TO 452 
009E READ byt 
00A3 PUT tfpath.byt 

00AD NEXT count 

00B8 CLOSE #path 

00BE PRINT 

00C0 SHELL "attr /dd/cmds/tree e pe" 

00DD DATA 135.205.1.196.0.13.17.129.237.0.70.1.189.84.114.101 

0111 DATA 229.2.40.99.41.49.57.56.57.32.83.46.66.46.71.111.108 

0148 DATA 100.98.101.114.103.68.105.114.101.99.116.111.114.121 

0176 DATA 32.116.114.101.101.32.115.116.114.117.99.116.117.114 

01A4 DATA 101.32.102.111.114.58.32.174.192.90.16.39.1.50.159 

01D5 DATA 3.15.2.15.44.15.7.204.42.124.151.8.221.9.236.128.129 

020C DATA 32.34.250.77.38.2.215.2.134.13.167.31.158.3.134.1.16 

0243 DATA 63.134.37.8.48.140.207.134.129.16.63.132.16.37.0.237 

0277 DATA 151.0.48.140.194.16.63.132.37.96.151.1.214.2.38.30 

02AB DATA 48 140.149.16.142.0.30.23.0.195.158.3.32.22.32.32.124 

02E2 DATA 45.45.45.45.45.118.13.32.32.124.32.32.32.90.141.5.48 

0319 DATA 140.234.32.114.48.140.239.16.142.0.6.90.43.5.23.0.154 

0350 DATA 32.248.57.204.0.39.16.63.141.77.16.43,0.152.48.75.16 

0387 DATA 142.0.29.150.0.16.63.137.16.37.0.133.48.200.41.16.142 

03BE DATA 0.3.16.63.137.37.33.48.75.166.132.132.127.129.65.37 

03F2 DATA 208.166.128.42.252.132.127.198.13.237.31.159.5.158 

0420 DATA 41.52.64.222.43.150.1.16.63.136.37.61.53.64.16.142 

0454 DATA 0.1.48.71.16.63.137.37.48.214.2.141.150.48.75.13.7 

048B DATA 42.2.48.29.141.47.13.7.42.152.158.5.79.214.2.92.237 

04C2 DATA 129.134.13.167.132.48.141.254.209.204.17.1.52.64.51 

04F3 DATA 75.16.142.0.40.16.63.3.37.28.53.64.16.63.4.93.38.20 

052D DATA 22.255.109.16.142.0.200.134.1.16.63.140.37.6.57.193 

0561 DATA 211.38.1.95.16.63.6.48.140.22.16.142.0.33.141.231.158 

0598 DATA 3. 141. 2Z3. 16. 63. 15. 32. 234. 48. 140. 36. 141. 213. 32. 227 

05C9 DATA 42.42.42.42.32.67.97.110.39.116.32.99.104.97.110.103 

05FD DATA 101.32.100.105.114.101.99.116.111.114.121.32.116.111 

062B DATA 58.32.7.85.115.101.58.32.116.114.101.101.32.60.115 

065C DATA 116.97.114.116.95.100.105.114.101.99.116.111.114.121 

068A DATA 62.13.39.222.107 
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Choose From 4 GREAT Money Sa ving Pa ckages! 



# 



□ ISTD 
sc- 



I 4 in 1 
C $200 ) 



II # 



2 



OlSTD 

SC-II 

+ 

1-MEG 



# 



DISTD 

SC-II 



3 



512K 



# 4 



□ ISTD 

4in1 



1-MEG 



( $235 ) t $165 ) f $235 ) 



• SC-II $1 30 

• SC-I $99 
•MC-I $75 



■ OK SR-3 $30 
■512K $70 

■ 1-MEG Kit $150 



■ RTC $35 

■ 3in1 $70 
•4in1 $130 



. MPROM $50 
■ H. DISK $50 
• RS-232 $40 



■ 1-MEG (OK) $140 
• RS-232 PAK $55 

■ HD & RS-232 $60 



• Turn of the Screw Book $20 
(With any Special Package $1 0) 

• Project Board $10 



(CRC Inc. 



11 Boul. Des Laurentides, Laval, Quebec, Canada H7G 2S3 
Include S&H of $8 MC/VISA or Money Order Accepted 



1-514-d67-01$5 

Sorry: No personal cheq 
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The right mix for learning chemistry 



Solid Foundation in 

Chemistry 



by Rudy Meijering 



Ghemistry Tutor is a program that helps in learning the very basics of 
chemistry — chemical spelling, abbreviations, physical properties and 
simple equation balancing. 
The program has many options, such as the ability to print question results. It 
alsokeeps track of the number of questions, errors, number of tries perquestion and 

final percentage ratings. 

The first three options are for selected areas of questioning (spelling, abbrevia- 
tions and physical properties). The fourth option combines all three previous 
options in random order. 

The fifth option is used for equation balancing. This option includes a hint op- 



Riuly is an apprentice diesel mechanic. He's hadaCoCo 3 for about three years 
and continues to he amazed at its usefulness, lie may he contacted at 356 McMeans 
Ave. West. Winnipeg, Manitoba K2C IJ7 Canada. 



CoCo3 



40 62 

80 155 

225 80 

320 190 

345 93 

430 151 

525 182 

550 155 

570 73 

600 184 

710 168 

805 79 

920 243 



1110 45 

1125 34 

1150 58 

1225 156 

1415 100 

1505 156 

1620 121 

1805 62 

3100 94 

3210 240 

3420 233 

3700 54 

3820 51 



4105 36 

4300 9 

4405 16 

9315 214 

9385 115 

9460 45 

9520 183 

9585 80 

9635 144 

9710 229 

9775 194 

9815 231 

END 165 



The Listing: CHETUTOR 

"COPYRIGHT 1990 FALSOFT. INC. 
5 REM ************************* 
******* 

10 REM *** 
*** 

15 REM *** CHEMISTRY PERIODIC TA 

BLE *** 
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Now with NRI's 
new training 
you can enjoy 
the rewards of 
a career in 
computer 
programming 

A top-paying career in computer 
programming is no longer out of your 
reach. Now you can gel the practical 
training and experience you need to 
succeed in this top-growth field. 

It's training that gives you real- 
world programming skills in four of 
today's hottest computer languages 
BASIC, Pascal, C. and COBOL. 
Hands-on training that includes 
a powerful IBM AT-compatible 
computer, modem, and program- 
ming software you train with and keep. 
Comprehensive, at-home training that 
gives you the competitive edge to 
succeed in one of today's leading 
industries. The kind of experience-based 
training only NRI can provide. 

As a trained computer programmer of 
the '90's, you can enjoy long-term career 
success. In fact, the Bureau of Labor 
Stat istics forecasts that during the next 10 
years job opportunities will increase by 71.7 
percent for the skilled computer program- 
mer. With NRI training you can be one of 
the increasing number of computer 
programmers using their skills lo build a 
top-paying career — even a business of their 
own — i n this professionally and financially 
rewarding high-tech field. 

T The only programming 
course that includes a powerful 
AT-compatible computer system 
and programming 
software you keep 

Right from the start, NRI 
training gels you actively involved 
in ihe challenge of real-world 
computer programming. You 
learn how to create ihe Kinds of 
full-featured, powerful pro- 
grams today's employers and 
clients demand. And, unlike 
any other school, NRI lets 

experience lirst-hand 
the power of an IBM PC/ 
AT-compatible computer 
svsiem with modem, a full 




Plus you explore the 
extraordinary capabili- 
ties of not one or two but 
four in-demand computer 
languages. You learn lo design, code, 
run. debug," and document programs in 
BASIC, Pascal. C, and COBOL. In the 
process you become uniquely prepared for 
the wide variety of programming opportuni- 
ties available today. 

▼ No previous 
experience necessary 

Immediately, you start getting the 
money-making job skills you need to secure 
a future in computer programming — no 
matter what your background. With NRI 
training you move easily from computer 
novice to computer professional with step- 
by-step lessons covering program design 
techniques used every day by successful 
micro and mainframe programmers. 

You'll find no heavy textbooks to plow 
through. No night classes to attend. Instead, 
NRI's at-home, step-by-step training covers 
all the bases, guiding you from the impor- 



tant fundamentals to real-world methods 
and techniques. With the help of your NRI 
instructor — offering one-on-one. personal 
guidance throughoul your course — you 
quickly gain ihe skills you need to handle 
with confidence a wide variety o( program- 
ming applications. You even use your 
modem to "talk" to your instructor, meet 
oihcr NRI students, and download 
programs through NRI's exclusive program- 
mers network. PRONET. 

▼ Send today 

for your FREE catalog 

Now you can have the professional 
and financial rewards of a career in 
computer programming. See how NRI at- 
home training gives you the experience, ihe 
know-how, the computer, and the software 
you need to get started in this top-paying 
field. Send today for your FREE catalog. 

If the coupon is missing, write to us al 
the NRI School of Computer Programming. 
McGraw-Hill Continuing Education Center. 
4401 Connecticut Avenue, NW, Washing- 
ton. DC 20008. 



~l 




'Schools 

McGraw-Hill Continuing Education Center R'jjjJ 

4401 Connecticut Avenue. NW. Washington. DC 20008 I. nil 

g? Check one free catalog only 



□ Computer Programming 

□ PC Systems Analysis 

□ PC Software Engineering Using C 



□ Microcomputer Servicing 

□ Desktop Publishing and Design 

□ Word Processing Home Business 



Name . 



fplease print > 



.Age. 



Address. 



megabyte of RAM, disk drive, and moni- 
tor — all yours to train with and keep. 



t City 

1 Accredited Member. National Home Study Council 
I 



Slate . 



.Zip. 



OOOO-OQfl 



_J 



lion lo help balance equalions by giving 
their real elemental value before balancing. 
By the use of cross multiplying, the equa- 
tions are balanced regardless of length. The 
main idea of the program is to provide a 
learning aid for the basic concepts of chem- 
istry and how they relate to the rest of the 
world. 

The program requires 32K to run. and the 
printer codes included in the program are 
for the DMP-105. There is no disk save rou- 
tine in the program, but there is 1 >K of 



memory left to include one if you wish. 

The screen is set up for a green-on-black 
monochrone monitor, and screen widths 
will vary during the program error printout 
(40 to 80). 

How to Use the Program 

When the title page and options appear, 
select an option from 1 to 5. When the 
option has been selected, you are required 
to select the questioning format and the 
results printout. There are many different 



levels of questions. Once you have mastered 
one level, you can move to the next level. 
The program is very straightforward and 
user friendly, so not much is really needed 
— except for response to equation balanc- 
ing. When answering the questions, your 
answer is not subscripted. But do not worry; 
the computer has already taken this into 
account. If you make a mistake, use the left 
arrow key to backspace over your mistake 
and type in the correction. 



20 REM *** 
*** 

25 REM *********** WRITTEN BY ** 
******* 

30 REM *** 



R.G. MEIJERING 

WINNIPEG. MANITOBA 

CANADA 



COPY RIGHT 



APRIL 18th. 1989 



35 REM *** 
40 REM *** 

*** 

45 REM *** 

*** 

50 REM *** 

*** 

55 REM ************************* 
******* 

60 REM *** 

*** 

65 REM *** 

*** 

70 REM *** 
*** 

75 REM *** 

*** 

80 REM *** 

*** 

85 REM ************************* 
******* 

100 REM *** INITIAL SCREEN 8 MEM 

ORY *** 

105 POKE65497.0:WIDTH40:CLEAR200 

0:PALETTE0.0:CLS1:PALETTE8.48:CL 

S1:RUN1600 

200 REM *** SCREEN PROMPTS LINE 

LOCATIONS *** 

205 C1-7:R1-0:R2-1:GOSUB305:RETU 

RN 

210 C1-21:R1-0:R2-1:GOSUB305:RET 

URN 

215 C1-5:R1-22:GOSUB310:RETURN 

220 C1-14:R1-22:GOSUB310:RETURN 

225 C1-0:R1-19:C2-8:R2-20:GOSUB3 

25:RETURN 

230 C1-0:R1-10:C2-8:R2-11:GOSUB3 

25:RETURN 

300 REM *** SCREEN PROMPTS *** 

305 CLS1:LOCATEC1.R1:ATTR0.0:PRI 

NT"Chetnistry Periodic Table":LOC 

ATEC1.R2: PRINT" 

":RETURN 

310 LOCATECl.Rl:PRINT"Press any 
key to Continue.": :GOSUB400:RETU 
RN 

315 LOCATE0.22:PRINT"Press [ C ] 
- Continue or [ M ] - Menu";:GO 
SUB400:IF I$-"C" THEN RETURNrELS 
E IF I$-"M" THEN 1600: ELSE IF 1$ 
<>"C" OR ISO"M" THEN 315 
320 LOCATE0.22:PRINT"[ C ] conti 
nue [ E ] exit [ R ] re-do": :G 
OSUB400:IF I$-"C" OR I$-"E" OR I 
$-"R" THENRETURNELSE320 
325 L0CATEC1.R1:PRINT" NOTE: th 



e keyboard is in LOWER case...": 
L0CATEC2.R2:PRINT"Use SHIFT for 
UPPER case.":POKE282.0:RETURN 
330 GOSUB205 : L0CATE5 . 3 : PRINT"Que 
stion Option Selection:": LOCATES 
.10:PRINT"Enter the following:": 
LOCATE0.12:RETURN 
335 GOSUB205 : LOCATE0 . 5 : PRINT"Equ 
ation Balancing:":LOCATE0.6:PRIN 

T" ": RETURN 

340 LOCATE0.10:PRINT"One minute 

Please... To set up Questions":RE 

TURN 

345 IF FA-1 OR FA-4 THEN 350 ELS 

E RETURN 

350 LOCATE0.13:ATTR6.4:PRINT" HI 

NT: "::ATTR0.0:LOCATE0.15:PRINTH 

I$:RETURN 

400 REM *** INKEYS *** 

405 I$-INKEY$:IF 1$-"" OR IS-" " 

THEN 405 ELSE RETURN 
410 GOSUB405: I-VALC 1$) : IF Kl OR 

I>7 THEN 410 ELSE RETURN 
415 GOSUB405:IF I$-"Y" OR I$-"N" 

THEN420ELSE415 
420 IF I$-"Y" THEN IN$-" Yes " : I 
N-1:RETURN 

425 IF I$-"N" THEN IN$-" No ":I 
N-2: RETURN 

430 LOCATE0.8:LINEINPUT"Your Ans 
wer: ";W$:RETURN 
435 LOCATE0.17:LINEINPUT"Answer: 

":WS: RETURN 

500 REM *** QUESTIONS OPTIONS ** 

* 

505 GOSUB520:GOSUB525:GOSUB540:G 

OSUB545:GOSUB550:GOTO555 

510 GOSUB520:GOSUB525:GOSUB540:G 

0SUB545:G0T0555 

515 GOSUB520:LE-3:GOSUB530:GOSUB 

535:G0SUB545:G0T0555 

520 GOSUB330:INPUT"Number of Que 

stions [ 25 - 106 ]";NQ:IF NQ<25 

OR NQ>106 THEN 520 ELSE RETURN 
525 IF NQ->25 AND NQ<27 THEN LE- 
4:ELSE IF NQ>26 AND NQ<54 THEN L 
E-3:ELSE IF NQ>54 AND NQ<79 THEN 

LE-2:ELSE IF NQ>79 THEN LE-1 
530 IF LE-1 THEN540ELSE GOSUB330 
:PRINT"Level of Questions [ 1 - 
";LE;" ]"; : INPUT"" ;QL: I F QL>0 OR 

QL<(LE+1) THENRETURNELSE530 
535 GOSUB330:INPUT"Number of Che 
in. / Quest. [ 2 - 8 ] ":EN:IF EN 
<2 OR EN>8 THEN 535 
540 GOSUB330:INPUT"Number of Tri 
es / Question [1-5 ]";NT:IF N 
T<1 OR NT>5 THEN540ELSERETURN 
545 GOSUB330:PRINT"List Errors [ 

Yes / No ]? "::G0SUB415:LE$-IN$ 
:LO-IN:RETURN 
550 GOSU8330:PRINT"List Spelling 

Errors [ Yes / No ]? "::G0SUB41 



5:SP$-IN$:SP-IN:RETURN 

555 GOSUB330:PRINT"Give Percenta 

ge Rating [ Yes / No ]? "::GOSUB 

415:GP$-1N$:GP-IN 

560 GOSUB330:PRINT"Print • Out R 

equired [ Yes / No ]? "::G0SUB41 

5:P0$-INt:P0-IN 

565 GOSUB330:LOCATE0.6:PRINT"Num 

ber of Questions: "::ATTR6.4 

:PRINTNQ::ATTR0.0:LOCATE0.8:PRIN 

T"Question Level : ": :AT 

TR6.4:PRINTOL::ATTR0.0:LOCATE0.1 
0:PRINT"Number of Chem. / Quest: 
. " : : ATTR6 . 4 : PRI NTEN : : ATTR0 . 
570 LOCATE0.12:PRINT"Number of T 

ries: ": :ATTR6.4:PRINTNT 

;:ATTR0.0:IF SPS-"" THEN SP$-" N 

" 

575 LOCATE0.14:PRINT"List Errors 

: "::ATTR6.4:PRINTLE 

$::ATTR0.0:LOCATE0.16:PRINT"List 

Spelling Errors :...."; :ATTR6. 4: 

PRINTSP$::ATTR0.0:LOCATE0.18:PRI 

NT"Gi ve Percentage: " : : A 

TTR6.4:PRINTGP$: :ATTR0.0 

580 LOCATE0.20:PRINT"Print - Out 

: "::ATTR6.4:PRINTP0 

$;:ATTR0.0:GOSUB320:IF I$-"C" TH 

EN585:ELSE IF I$-"E" THEN 1600:E 

LSE IF 1$-"R" THEN ON I GOTO 505 

.510.510.505.515 

585 IF I>4 THEN 3000 

600 REM *** INITIALIZE QUESTION 

OPTION VARIABLES *** 

605 NS-NQ+1:DIM QT(NS):DIM TE$(N 

S):DIM SE$(NS):DIM 0S(NS):TR-1 

610 IF NQ<27 THEN SL-(QL-1)*26 E 

LSE SL-INT((26.5)*(QL-D) 

615 RESTORE: FORZ-0TO(SL- 1 ) :READA 

.B$.C$.O$.E:NEXTZ:GOSU8205:GOSUB 

230:GOSUB215:NN-NQ+SL 

620 FORT-SL TO NN : READA. B$.C$ . D$ 

.E:ON I GOSUB 1700.1800.1900.200 

0.815. 915 :NEXTT: RESTORE :G0SUB215 

700 REM *** PERCENTAGE ROUTINE * 

** 

705 GOSUB205:GOSUB1000:IF GP-1 T 

HEN710ELSE800 

710 RA-RA-1:PE-INT((100/NQ)*RA): 

LOCATE0.3:PRINT"Percentage Rat in 

g : " : : LOCATE0 . 4 : PR I NT"*********** 

******••.. L0CATE5. 6 :PRINT"Number 

Right: ":RA::L0CATE5.8:P 

RINT"Your Percentage: ":PE; 

"%"::IF NT-1 THEN 720 ELSE 715 
715 PA-INT((100/NQ)*(RA-AT)):LOC 
ATE0.11:PRINT"Actual Percentage 
Rating:": :LOCATE0. 12: PRINT"***** 
**********.********•• . . LOCATES . 14 

:PRINT"Number of Attemps: ": 

AT;:L0CATE5.16:PRINT"Final Perce 

ntage Rating: . . ";PA:"%"; : 

720 IF PO-1 AND NT<2 THEN G0SUB1 



68 



THE RAINBOW February 1991 



110:ELSE IF PO-1 AND NT>1 THEN G TAB(61)"Your Answer" : PRINT#-2 :RE 

OSIIB 1120 TURN 

725 IF FG-2 THEN RETURN 1155 PRINT#-2.TA8(C3)QN$(T) :TAB( 

30 G0SUB215 C4)RB$(T):TAB(C5)WA$(T):PRINT#-2 

800 REM *** ERROR PRINT - OUT RO .TAB(C4)RCS(T) ;TAB(C5)WB$(T) :RET 

UT1NE *** URN 

805 GOSUB1000:IF LO-1 AND ER>0 T 1200 REM *** SCREEN SPELLING & E 

HEN 810 ELSE 900 RROR PRINT OUT ROUTINE *** 

810 1-5 : Z-l : X-l : SL-1 : EP-1 : NN-105 1205 IF PO-1 THEN GOSUB 1135 ELS 

:GOTO1200 E 1220 

815 IF QT(EP)-A THEN 1225 ELSE R 1210 GOTO1220 

FjURN 1215 GOSUB220 

820 L0CATE56.LT:PRINTTE$(EP):EP- 1220 WIDTH80: LT-5:GOSUB210:RESTO 

EP+1-GOTO 1230 RE:LOCATE5.3:PRINT"Chemical : : LO 

900 REM *** SPELLING ERROR PRINT CATE22 .3: PRlNT"Symbol " ; : L0CATE39 

- OUT ROUTINE *** ,3: PRINT"State" : : L0CATE56.3:PR1N 

905 GOSUB1000:IF SP-1 AND Sw>0 T T"Your Mi stake": : GOTO620 

HEN 910 ELSE 100 1225 LOCATE5. LT: PRINTB$ : : L0CATE2 

910 1-6 ■ Z-2 • ER-SW : X-2 : SL-1 : NN-10 4 . LT: PRINTCJ; : L0CATE38. LT: PRINTD 

5-EP-1-GOTO1200 *:=ON Z GOTO 820.920 

915 If'0S(EP)-A THEN 1225 ELSE R 1230 LT-LT+1 : I F LT>21 THEN 1215 

r}n RN U 1235 IF PO-1 THEN GOSUB1140 

920 L0CATE56.LT:PRINTSE$(EP):EP- 1240 IF EP>ER THEN 1245 ELSE RET 

EP+l - GOTO 1230 URN 

1000'REM *** PAPER PRINT - OUT I 1245 GOSUB220:ON X GOTO 900.100 

NITIAL ROUTINE *** 1300 REM *** CORRECT ROUTINE *** 

1005 POKE65496.0:POKE65497.126:P 1305 L0CATE14 . 10:ATTR6 4: PRINT" 

OKE65496.126:POKE150.18:POKE152. CORRECT! " : : FORG-1TO700:NEXTG:RA 

64:POKE155.80:POKE282.255:RETURN -RA+1 :G0T01515 

1100 REM *** PRINTER PRINT - OUT 1400 REM *** SPELLING & ERROR RO 

... UTINE *** 

1105 PRINT#-2:PRINT#-2.TAB(21>." 1405 IF SP-2 THEN 1435 

Chemistry Periodic Table":PRINT# 1410 IF LEN(WS)OLEN(B$) THEN WE 

-? TAB(21) " - -WE+1 

- ---"-PRINTS-RETURN 1415 FORK-1TOC LEN( B$) ) : IF MID$(W 

1110 GOSUBH05:PRINT#-2:PRINT#-2 S.K.I )<>MID$(B$ .K. 1) THEN WE-WE+ 

.TAB(5)"Percentage Rating:":PRIN 1 

T#-2 JAB( 5 )"*****************" =P iA2B NEXTK: IF WE>2 THEN 1435 ELS 

RINT#-2:PRINT#-2:PRINT#-2.TAB(5) E 1425 

"Number of Questions: 1425 LOCATE11.10:ATTR6.4:PRINT" 

...":NQ:PRINT#-2:PRINT#-2.TAB<5> SPELLING ERROR! ": :|;ORG-1TO700:N 

"Question Level: EXTG:AT-AT+1:IF TR-NT THEN 1430 

"•QL-PRINT#-2 ELSE 1505 

iii5'PRiNT#-2.TAB(5)"Number of T 1430 SW-SW+1 :QS( Sw)-A:SE$(Sw)-w$ 

ries / Question: ":NT:PRIN :GOT01515 

T#-2-PRINT#-2,TAB(5)"Number Corr 1435 L0CATE14. 10:ATTR6.4:PRINT" 

act- ...":RA:PRIN ERROR! " : : FORG-1TO700:NEXTG:AT 

T#-2ipRiNT#-'2.'TAB(10)"Your Perce -AT+1 : 1 F TR-NT THEN 1440 ELSE 15 

PRINT# R 2 l RETURN '' 1440 ER-ER+1 :TE$(ER)-W$:QT(ER)-A 

1120 GOSUB1110:PRINT#-2.TAB(5)"A :G0T01515 

ctual Perecentage Rating:":PRINT 1500 REM *** RESET ROUTINE *** 

#-2 TAB(5)"********************* I 505 TR-TR+1:WE-0:IF I<4 THEN 15 

****":PRINT#-2:PRINT#-2:PRINT#-2 10 ELSE 1520 

TAB(5)"Number of Attempts: 1510 ON I GOTO 1700.1800.1900 

"•AT:PRINT#-2:PRINT#-2. 1515 TR-1 :WE-0:RETURN 

TAB(20)"Final Perecentage Rating 1520 ON U GOTO 1700.1800.1900 

"•PA-"%":PRINT#-2:RETURN 1600 REM *** MAIN MENU *** 

1125 PRINT#-2:PRINT#-2.TAB(5)"Er 1605 GOSUB205 : LOCATE0. 3: PRINVSe 

or L s ing:":PRINT#-2.TAB(5)"** lect (1 to 5) :" : GOSUB1610:GOSUB 

***********•■• PRINT#-2:PRINT#-2:R 615:GOSUB1620:GOSUB1625:GOSUB163 

r TURN 0:GOSUB410:ATTR6.4:ON I G0SUB161 

1130 PRINT#-2:PRINT#-2.TAB(5)"Sp 0. 1615. 1620. 1625. 1630: ATTR0 0:GO 

elling Error Listing:":PRINT#-2. SUB315:0N 1 GOTO 505.510.510.505 

TAB (5 )■■**********************" : P ,515 

RINT#-2:RETURN 1610 LOCATE5 .8: PRINT"1] Quiz on 

'135 ON*Z GOSUB1125,1130:PRINT#- Chemical Names"; : RETURN 

2-PRINT#-2.TAB(5)"Chemical Name" 1615 LOCATES. 10: PRINT"2] Quiz on 

•TAB(22)"Symbo1":TAB(39)"State": Chemical Symbol s": : RETURN 

TAB(56)"Your Mistake" : PRINT#-2:P 1620 LOCATE5.12:PRINT"3] Quiz on 

RINT#-2:RETURN Physical Properties ::RETURN 

1140 IF Z-l THEN 0$-TE$(EP) ELSE 1625 LOCATES. 14: PRINT"4] Quiz on 

0$-SE$(EP) A11 Three":: RETURN 

1145 PRINT#-2.TAB(5)B$:TAB(24)C$ 1630 L0CATE5. 16: PRINV5] Balance 

-TAB(39)D$;TAB(57)0$:RETURN Equations" :: LOCATE0. 22: RETURN 

1150 PRINT#-2.TAB(3)"Chemical Eq 1700 REM *** QUESTION #1 *** 

on":TAB(31)"Correct Answer"; 1705 GOSUB205:LOCATE3.5:PRINT wh 



at is the chemical name for this 
symbol [ ":C$:" ] which is a 
";D$;".":GOSUB430:IF W$-"" OR W$ 
-" " THEN 1705: ELSE IF W$-B$ THE 
N 1300 ELSE 1400 
1800 REM *** QUESTION #2 *** 
1805 GOSUB205:LOCATE3.5:PRINT"wh 
at is the chemical symbol for th 
is chemical : ";B$:" which is a 
":D$;".";:GOSUB430:IF w$-"" OR W 
$-" " THEN 1805: ELSE IF W$-C$ TH 
EN 1300 ELSE 1435 
1900 REM *** QUESTION #3 *** 
1905 GOSUB205:LOCATE3.5:PRINT"wh 
at is the physical state of this 
chemical element: ";C$;:G0SUB 
430: IF W$-D$ THEN 1300 ELSE 1435 
2000 REM *** QUESTION #4 *** 
2005 U-RND(3):ON U GOTO 1700.180 
0.1900 

3000 REM *** OPTION #5 BALANCE E 
QUATIONS *** 
3005 GOSUB335:GOSUB340:FG-1:FA-Q 

L:GOTO3100 

3010 GOSUB230:GOSUB215:FG-2:RETU 

RN 

3100 REM *** INITIALIZE SYMBOL & 

VALUE SEARCH *** 
3105 NN-NQ+1:DIM PC$( EN) .QC( EN) . 
HT(EN).QN$(NN).WA$(NN).WB$(NN).R 
B$(NN).RC$(NN):F0RF-1T0NN:F0RT-1 
TOEN 

3110 RN-RND( 106) -.SL-RN+1 : FORV-1T 
OSL:READA.B$.C$.D$.E:NEXTV:IF RN 
-A THEN3115 ELSE 3110 
3115 RESTORE: IF E-0 THEN 3110 
3120 PC$(T)-C$:QC(T)-E:HI$-HI$+P 
C$(T)+"-"+MIDJ((STR$(QC(T))).2.1 
)+" ":NEXTT 

3200 REM *** BALANCING FORMAT ** 
* 

3205 F0RR-4T01 STEP-1 : FORT-1TOEN 
:IF QC(T)-R THEN 3215 
3210 NEXTT:NEXTR 

3215 FL-0:FORT-1TOEN:ON R GOTO 3 
705.3605.3505.3405 
3220 IF FL-0 THEN 3805 
3300 REM *** RE - BALANCE ELEMEN 
TS *** 

3305 FORT-lTOEN:ON R GOTO 5.3705 
.3515.3415 

3400 REM *** BALANCE TO 4 th ELE 
MENT *** 

3405 IF QC(T)-4 THEN QC(T)-0:ELS 
E IF QC(T)-3 THEN FL-1:ELSE IF Q 
C(T)-1 THEN QC(T)-4 
3410 NEXTT:GOTO3220 
3415 IF QC(T)-3 THEN QC(T)-4:ELS 
E IF QC(T)-0 THEN QC(T)-3 
3420 NEXTT:FL-0:GOTO3220 
3500 REM *** BALANCE TO 3 rd ELE 
MENT *** 

3505 IF QC(T)-3 THEN QC(T)-0:ELS 
E IF OC(T)-2 THEN FL-1:ELSE IF Q 
C(T)-1 THEN QC(T)-3 
3510 NEXTT:GOTO3220 
3515 IF QC(T)-2 THEN QC(T)-3:ELS 
E IF QC(T)-0 THEN QC(T)-2 
3520 NEXTT:FL-0:GOTO3220 
3600 REM *** BALANCE TO 2 nd ELE 
MENT *** 

3605 IF QC(T)-2 THEN QC(T)-0:ELS 
E IF OC(T)-l THEN QC(T)-2 
3610 NEXTT:FL-0:GOTO3220 
3700 REM *** BALANCE TO 1 st ELE 
MENT *** 
3705 IF QC(T)-1 THEN QC(T)-0 
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3710 NEXTT:GOTO3220 

3800 REM *** QUESTION VARIABLE S 

ET UP *** 

3805 FORT-lTOEN:QU$-QU$+PC$(T)+" 

+":IF QC(T)-0 THEN 3810 ELSE 381 

5 

3810 AN$-AN$+PC$(T):AP$-AP$+PC$( 

T):AQ$-AQ$+STRINGS((LEN(PC$(T))) 

,32):GOTO3820 

3815 AN$-AN$+PC$(T)+MID$((STR$(Q 

C(T))).2.1):AP$-AP$+PC$(T)+" ":A 

Q$-AO$+STRINGS((LENtPC$(T))).32) 

+MID$((STRS(QC(T))).2.1) 

3820 NEXTT:L-LEN(QU$)-1:QU$-MID$ 

(QUI. 1 . L)+"-?" 

3900 REM *** QUESTION OUT - PUT 

*** 

3905 IF FG-1 THEN GOSUB 3010 
3910 G0SUB335:L0CATE12.9:PRINT"Y 
our Question:":CO-INT(40-(LEN(QU 
$)))/2:LOCATEC0.11:PRINTQUS:GOSU 
B345:G0SUB435:IF W$-"" OR W$-" " 

THEN 3910 :ELSE IF W$-AN$ THEN 
4005 ELSE 4105 

4000 REM *** CORRECT ROUTINE *** 
4005 L0CATE14.18:ATTR6.4:PRINT" 
CORRECT! ": : ATTR0.0: FORG-1TO100: 
NEXTG : RA-RA+1 : GOTO4305 
4100 REM *** ERROR ROUTINE *** 
4105 L0CATE14.18:ATTR6.4:PRINT" 

ERROR! • , ;:ATTR0.0:AT-AT+1:TR-T 
R+1:IF TR-NT THEN 4205 
4110 FORZ-1TO500:NEXTZ:IF FA-2 T 
HEN FA-4 
4115 GOTO3910 
4200 REM *** CHEMICAL SUB SCRIPT 

INPUT ROUTINE *** 
4205 ER-ER+1:TL-LEN(QU$)-2:QN$(E 
R)-MID$(QU$.1.TL):WA$(ER)-W$:WB$ 
(ER)-W$:RB$(ER)-AP$:RC$(ER)-AQ$ 
4210 LW-LEN(W$):FORZ-lTOLW:SC-AS 
C(MID$(W$.Z.1)):IF SC>59 THEN MI 
D$(WB$(ER).Z.l)-" "ELSE GOSUB422 



4215 NEXTZ:GOTO4305 
4220 MID$(WA$(ER).Z.l)-" 



':RETUR 



4300 REM *** RE - SET ROUTINE ** 



4305 

4310 

:QU$ 

UB21 

4315 

215 

4320 

HEN 

4325 

HEN 

4330 

4335 



4400 



IF FA-4 THEN FA-2 

HI$-"":AN$-"":AP$-"":AQ$-"" 
.-"":TR-0:NEXTF:GOSUB1000:GOS 
5 

IF GP-1 THEN GOSUB700:GOSUB 

IF LO-1 AND PO-2 AND ER>0 T 

4410 

IF LO-1 AND PO-1 AND ER>0 T 
4335 ELSE 100 

IF LO-2 THEN 100 

GOSUB1100:GOSUB1150:GOTO441 

REM *** ERROR PRINT - OUT * 



4405 WIDTH80:LT-5:GOSUB210:LOCAT 

E3.3:PRINT"Chemical Equation:";: 

L0CATE31.3:PRINT"Correct Answer: 

" : L0CATE64 . 3 : PRI NT"Your Answer" : 

RETURN 

4410 GOSUB4405:FORT-1TOER:C3-INT 

(24-LEN(QNJ(T)))/2:C4-INT(24-LEN 

(RB$(T)))/2+27:C5-INT(24-LEN(WB$ 

(T)))/2+56:L0CATEC3.LT:PRINTQN$( 

T);:L0CATEC4,LT:PRINTRBJ(T)::L0C 

ATEC5.LT:PRINTWA$(T);:LT-LT+l:LO 

CATEC4.LT :PRINTRC$(T);:LOCATEC5. 



LT:PRINTWBJ(T): 

4415 IF PO-1 THEN G0SUB1155 

4420 LT-LT+1 : IF LT>20 THEN 4430 

4425 NEXTT:GOSUB215:RUN100 

4430 GOSUB215:GOTO4405 

9300 REM *** DATA *** 

9305 DATA 0.0.0.0.0 

9310 DATA 1. Hydrogen. H. Gas. 1 

9315 DATA 2.Hel ium .He. Gas .0 

9320 DATA 3. Li th1 um. L1 .Sol id.l 

9325 DATA 4.Beryll ium. Be. Sol id. 2 

9330 DATA 5 .Boron. B.Sol id. 3 

9335 DATA 6. Carbon .C.Sol id. 4 

9340 DATA 7 .Nitrogen .N. Gas .3 

9345 DATA 8. Oxygen .0. Gas .2 

9350 DATA 9. Fl ouri ne. F.Gas . 1 

9355 DATA 10. Neon . Ne.Gas.0 

9360 DATA 11 .Sodium. Na .Sol id. 1 

9365 DATA 12. Magnesium. Mg.So! id. 

2 

9370 DATA 13. Al umi num. Al . Sol id. 2 

9375 DATA 14 .Si 1 icon. Si .Sol id. 4 

9380 DATA 15. Phosphorus . P.Sol id. 

3 

9385 DATA 16. Sul fur. S.Sol id. 2 

9390 DATA 17 .Chlorine. CI .Gas . 1 

9395 DATA 18. Argon .Ar. Gas .0 

9400 DATA 19. Potassium. K. Solid. 1 

9405 DATA 20,Cal ci um.Ca .Sol id. 2 

9410 DATA 21. Scandium. Sc. Solid. 2 

9415 DATA 22 .Titanium. Ti .Sol id. 2 

9420 DATA 23. Vanadi urn. V.Sol id. 2 

9425 DATA 24 .Chromi um.Cr.Sol id. 2 

9430 DATA 25. Manganese. Mn .Sol 1d. 

2 

9435 DATA 26. Iron . Fe. Sol id .2 

9440 DATA 27 .Cobal t .Co. Sol id. 2 

9445 DATA 28. Nickel .Ni .Sol id. 2 

9450 DATA 29 .Copper. Cu. Sol id. 2 

9455 DATA 30. Zinc . Zn. Sol id. 2 

9460 DATA 31 .Gall i um.Ga . Liquid. 2 

9465 DATA 32 .Germani um.Ge.Soild. 

2 

9470 DATA 33. Arsenic. As .Sol id. 3 

9475 DATA 34. Selenium. Se. Sol id. 2 

9480 DATA 35. Bromine. Br. Liquid. 1 

9485 DATA 36. Krypton. Kr. Gas .0 

9490 DATA 37 .Rubidium. Rb. Sol id. 1 

9495 DATA 38. Strontium. Sr .Sol id. 

2 

9500 DATA 39. Yttrium. Y. Solid. 2 

9505 DATA 40. Zi rconium.Zr .Sol id. 

2 

9510 DATA 41. Niobium. Nb. Solid. 2 

9515 DATA 42. Molybdenum. Mo. Sol id 

.2 

9520 DATA 43. Technetium. Tc. Synth 

etic.2 

9525 DATA 44.Rutheni urn. Ru .Sol id . 

2 

9530 DATA 45.Rhodi um.Rh .Sol id. 2 

9535 DATA 46. Pal 1 adium.Pd.Sol id. 

2 

9540 DATA 47 .Si 1 ver . Ag.Sol id. 2 

9545 DATA 48.Cadmi un .Cd.Sol id. 2 

9550 DATA 49. Indi urn. In. Sol id. 2 

9555 OATA 50. Tin .Sn. Sol id. 2 

9560 DATA 51 .Antimony .Sb. Solid. 2 

9565 DATA 52 .Tel 1 urium.Te.Sol id. 

2 

9570 DATA 53. Iodine. 1 .Sol id. 1 

9575 DATA 54 .Xenon .Xe. Gas .0 

9580 DATA 55 .Cesium. Cs . Liquid. 1 

9585 DATA 56.Bari um.Ba .Sol id. 2 

9590 DATA 57 . Lanthanum. La .Sol id. 

2 



9595 DATA 58. Cerium. Ce. Sol id. 2 

9600 DATA 59, Praseodymium. Pr. Sol 

id. 2 

9605 DATA 60.Neodymium.Nd.Sol id. 

2 

9610 DATA 61. Promethi urn. Pm. Synth 

etic.2 

9615 DATA 62. Samarium. Sm. Sol id. 2 

9620 DATA 63.Europi um.Eu.Sol id .2 

9625 DATA 64,Gadol inium.Gd.Sol id 

.2 

9630 DATA 65.Terbi urn. Tb. Sol id. 2 

9635 DATA 66.Dyprosi urn. Dy .Sol id. 

2 

9640 DATA 67 .Homium.Ho. Sol id. 2 

9645 DATA 68. Erbium. Er. Sol id, 2 

9650 DATA 69. Thulium. Tm. Solid. 2 

9655 DATA 70. Ytterbium. Yb. Sol id. 

2 

9660 DATA 71 . Luteti urn. Lu.Sol id. 2 

9665 DATA 72.Hafnium.Hf .Sol id. 2 

9670 DATA 73.Tanta1 um.Ta .Sol id. 2 

9675 DATA 74 .Tungsten .W.Sol id. 2 

9680 DATA 75. Rhenium. Re. Sol id. 2 

9685 DATA 76. Osmium. Os .Sol id .2 

9690 DATA 77 . 1 rldi urn, Ir .Sol id. 2 

9695 DATA 78. Plati num.Pt .Sol id, 2 

9700 DATA 79. Gold. Au. Solid. 2 

9705 DATA 80.Mercury.Hg . Liquid. 2 

9710 DATA 81. Thallium. Tl .Solid. 2 

9715 DATA 82 . Lead. Pb. Sol id. 2 

9720 DATA 83. Bi smuth.Bi .Sol id. 2 

9725 DATA 84. Pol oni um. Po.Sol id. 2 

9730 DATA 85 .Astatine. At .Sol id . 1 

9735 OATA 86. Radon. Rn .Gas .0 

9740 DATA 87 . Francium. Fr. Liquid. 

1 

9745 DATA 88. Radium. Ra .Sol 1d. 2 

9750 DATA 89.Acti ni um. Ac. Sol id. 2 

9755 DATA 90,Thori um.Th.Sol id. 2 

9760 DATA 91 . Protactini um. Pa . Sol 

id. 2 

9765 DATA 92. Uranium. U.Sol id. 2 

9770 DATA 93. Neptunium. Np.Synthe 

tic. 2 

9775 DATA 94 ,P1 utoni um. Pu.Synthe 

tic. 2 

9780 DATA 95. Amend um.Am.Symthe 

tic. 2 

9785 DATA 96. Curium. Cm. Syntheti c 

.2 

9790 DATA 97 .Berkel ium.Bk.Synthe 

tic. 2 

9795 DATA 98.Cal 1 f orni um.Cf . Synt 

hetic,2 

9800 OATA 99. Einsteinium. Es. Synt 

hetic.2 

9805 DATA 100. Fermi um. Fm.Synthet 

ic.2 

9810 DATA 101.Mendelevium.Md.Syn 

thetic.2 

9815 DATA 102. Nobel i um. No. Synthe 

tic. 2 

9820 OATA 103. Lawrencium. Lr. Synt 

hetic.2 

9825 DATA 104,Unni lquadi um.Unq.S 

ynthetic.2 

9830 DATA 105,Unni lpentium.Unp.S 

ynthet1c.2 

9835 DATA l06.Unn1 1 hex1um.Unh.Sy 

nthetic.2 

9900 REM *** SAVE PROGRAM *** 

9905 F0RF-1T09:M0T0R0N:AUDI0 ON: 

FORK-1TO2500:NEXTK:CSAVE"CHEMV.1 

":NEXTF:MOTOROFF 
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OUR LATEST 30 ISSUES 



ISSUE #71, MAY 1988 

SUPER LOTTO 
RODOL ADVENTURE 
MAZE 
YAHTZEE3 
PHASER 
SHAPESPLATES 
STAR WARS 
ELECTRONICS 14 
PRINTER CONTROL 
MAZE 2 

ISSUE #72, JUNE 1988 

MARKET WATCHER 
3 STOOGES 
HOSTAGE ADVENTURE 
PROGRAM TRIO 
GLADIATOR 
US.S CANADA OUIZ 
JEOPARDY 
ELECTRONICS 15 
COCO 3 PRINT 
CTTY 

ISSUE #73, JULY 1988 

FOREIGN OBJECTS 
CHESS FUNDAMENTALS 
WATERFOWL QUIZ 
WHAMMY3 

ADVENTURE TUTORIAL 
CIRCLE 3 
EDUCATION TRIO 
WRITE-UP EDITOR 
PICTURE PACKER 
AIR ATTACK 

ISSUE #74, AUG. 1988 

VIDEO CAT 3 
1 EYE WILLIE 
JAVA 

GAME TRIO 
CRIONAUT WARRIOR 
ENVELOPE PRINT 
RAM DRIVE 3 
MODE 2 

XMODEM TRANSFER 
CAVE II 

ISSUE #75, SEP. 1988 

DRACULA ADVENTURE 
HELP TRIO PROGRAM 
SHOWDOWN DICE 
TARZAR 1 ADVENTURE 
ARAKNON 

CASH FLOW REPORTING 
GRAPHICS LETTER 
GRAPHIC EDITOR 
ADDRESS BOOK 
SQUARES 

ISSUE #76, OCT. 1988 

SUPERBUTZ3 
CHAMBERS 
TRIO RACE 
EARTH TROOPER 
STARGATE 

BOWLING SECRETARY 
DISK TUTORIAL 
JOYSTICK KEYBOARD 
KEYBOARD < JOYSTICK 
■ffl«»l:IMJi'l 

ISSUE #77, NOV. 1988 

POLICE CADET #2 
STARSHIP SHOWDOWN 
MUSIC COMPOSER 
COUPONS'REBATES 
PROGRAM UBRARY 
BOYSCOUT SEMAPHOR 
HOUSEHOLD CHORES 
MAXOMAR ADVENTURE 
CHUCK LUCKS 
■8BM8H8MMW 

ISSUE #78, DEC. 1988 

POLICE CADET S3 

TANK TURRET 

WAR OF THE WORLDS 

SPINSTER CAFE 

COCO-SIZE 

SIGN MAKER 

LEGAL DEDUCTIONS 

900KKEEPMG 

CAR LEASE 3 



ISSUE #79, JAN. 1989 
POLICE CADET M 
DRAW POKER 3 
TILER TEX 
BATTLE 

INSIDE THE COCO 
COCO BULLETIN BOARD 
HOT DIPECTORY 
VCR TUTORIAL 
PRINTER CONTROL 

aiiuaiw 

ISSUE #80, FEa 1989 

SCRABBLE 
SPELLING CHECKER 
SANDSTONE ADVNT. 
THE FAMILY FEUD 
HARNESS3 HANDICAP 
MINIG0LF3 
ULTIMATERM3 
NETWORKING TUTORIAL 
A-MAZING PLACE 

BB— 

ISSUE #81, MAR. 1989 

MONSTERS 

SUPER CONCENTRATION 

TEN PROGRAMS C0C03 

f NANCE 

SNOWBALL FIGHT 
RULER 

POP-UP WINDOWS 
TARZAR2- CASTLE 
SUPER LISTER 

nwmvm 

ISSUE #82, APR. 1989 
DUNGEON MAZE 
DISK TRANSFER 
MAIL MERGE 
SUPER SPREADSHEET 
BLASTER 
TILER TWO 
DREAM TUNNa 
DISK UTILITY 3 
EDUCATION TRIO 

B3BMB 

ISSUE #83, MAY 1989 

TSD FIRST 80 
MODEM BATTLESHIP 
CHURCH MANAGER 
SUPER FILE SORT 
BASEBALL STATS 
TARZAR PT. 3 
INVOICE 
CARD SQUEEZE 
SWORDPLAYU2 
■•■ItfflTOMHS 

ISSUE #84, JUNE 1989 

CROSSWORD PUZZLES 

MOUNT DEATH 

TERRON 

DISK/TAPE TRANSFER 

PAPERWORKS 

SUPER DATABASE 

CONNECTS 

BUSINESS MODEL 

MASS FORMAT 

iH!tJ,',l:Hi>1 

ISSUE #85, JULY 1989 
5 PLAYER POKER 
RESUME WRITER 
CRAZY CHEMIST 
JOURNEY UP 
SUBMAINIA 
WORKBENCH 
VACATION PLANNER 
DISK EDITOR II 
NIGHT OF THE NINJA 
IMUIHK' 



ISSUE #86, AUG. 1989 

TIME TRAP 
PHONE ACCOUNTANT 
ON TARGET 
NAME THAT TUNE 3 
LASER DEFENCE 
CHECKBOOK BALANCER 3 
KROACH ADVENTURE 
SUPER BAR GRAPH 
EASY LETTER 



ISSUE #87, SEP. 1989 

PURCHASE ORDER 

INVENTORY INVOICE 

AMERICAN TRIVIA 

KR0ACH2 ADVENTURE 

TETRA 

SOLO POKER 

GALAXY Q3 

IBM PICTURE VIEWER 

RGB PATCH 

■amciun 

ISSUE #88, OCT. 1989 

SALES PROSPECTING 

VIRUS 3 

WILL MAKER 

JOURNAL-GEN. LEDGER 

POLICE CADET »5 

RED DOG 

MAD LIBS 

MACINTOSH PICT SAVER 

FROG 

■iHiairaniamnuw:! 

ISSUE #89, NOV. 1989 

SPEECH INDEXER 
OUEST ADVENTURE 
EDUCATION TRIOS 
BIG LETTER 
PANGO 
ELEMENTS 
GARDEN PLANNER 
VIDEO SHOW 
WARP 

ran 

ISSUE #90, DEC. 1989 

MUSIC-4 VOICE 
HONEYCOMB 
POINT OF SALE 
ORBS ADVENTURE 
IBM -COCO 
CIVIL WAR 
LST UTILITIES 
BREAK-IN COCO III 
LABYRINTH MASTER 

■BMBB 

ISSUE #91, JAN 1990 

TRENCH FIGHTER 
COCVERT3 
SPEED GAMES 
BUSINESS STARTER 
CAVERN QUEST3PT. 2 
BUILDERS HELPER 
TARZAR IV 
ADDRESS IT 
ANIMAL GRAPHICS 

axxttm 

ISSUE #92, FEB 1990 
PENTA-SAME 
PATISSERIE LEAGUE 
NICKS QUEST 
SOLITAIR 
EDUCATION 4 
IBM -BASIC 
BASEBALL CARD ORG. 
MUNCHY 3 
RIVER RAID 3 
iWUHS 

ISSUE #93, MAR 1990 

MR MOVIE 
INVADERS 

COC03 RECIPE MACHINE 
SILVERCAPE3ADV. 
BABY-SITTERS BASE 
BIBLE SCRIPTURE 
VOCABULARY QUIZ 
DROP PACK 
DOCTOR WHO 3 

ISSUE #94, APR. 1990 

FLASH CARD 

REAL ESTATE USTINGS 

BIBLE QUESTIONS 1 

SPEWNGOUIZI 

NO LEFT 3 

PICTURE VIEWER 3 

TANK SHOWDOWN 

TARZAR 5 ADVENTURE 

GENESIS 

iftllliWUfli 



ISSUE #95, MAY 1990 
DREAMTIME ADVENTURE 
XT/AT SYSTEMS 
BIBLE QUIZ 2 
16 FUGS 
FRACTIONS 
SOUTIARE PUZZLE 4 
51 2K RAM DRIVES 3 
FOOD FACTORY 3 
WHO PART 2 

ISSUE#96,JUN1990 

ENTREPENEUR 
DR.PHREDI 
PRINTER FONT CODES 
BIBLE QUESTIONS PT 3 
CALO ADVENTURE 
FORM MAKER 
DRAGON ESCAPE 
PLANE EXPLORER 
WHO PART 3 
r-lT'.fr: 

ISSUE #97, JULY 1990 

FCC EXAM HELPER 
EMPLOYEE SCHEDULE 
FLYING SAUCER ADV. 
SPEECH AID 
TOWER MADNESS 
JET TRIVIA 
INSTANT CALENDAR 
WORLD MASTER 3 
AIR WAR 3 

ISSUE #98, AUG. 1990 
FLIPPY TUTORIAL 

RECIPE/MEALfGROCERY 
DUNGEON MAZE 
SNOW SKI 
HOT LOAD 
SHIP WAR 
ERROR TRAP 
SPACE WAR 3 
MAZE MASTER 3 
BVlWJaiMfflffl 

ISSUE #99, SEPT. 1990 

IDEA TREE 

MASTERS LABYRINTH 
MORSE CODE 
TELESALE CONTACTS 
PROMISED LAND QUIZ 
PROPOSAL WRITER 
ALPHABET SCRAMBLE 3 
MAGIC PUMPKIN 
DR.WH03PART4 

■«iw,',fjn 

ISSUE #100, OCT. 1990 

ZOT MIND GAME 
SUPER TEXT EDITOR 
SUPER TEXT FORMATTER 
TURTLE SEARCH 3 
COAST TO COAST 
EASY BASIC 3 
DRAGON ADVENTURE 
WRITE OUT UTILITY 
TRYTHIS 

BflBBMBBB 

ISSUE #101, NOV. 1990 

GOSSIP 

COST ESTIMATOR 

SALON INVENTORY 

PERSONAL STATISTICIAN 

BINGO CALLER 3 

ALAIX-3 

DEATH HUNT 

S12K/RAMOTALOGER3 

DUCK HUNT 

ai:iaa;» 



EACH ISSUE 

CONTAINS 10 PROGRAMS 

READY TO LOAD. 

AVAILABLE ON TAPE OR DISK. 

SUPER {>V|NCS 






<J 



SINGLE ISSUE $ 8.00 

2-5 ISSUES.- $ 6.00 EA 

6-10 ISSUES $ 500 EA 

11 OR MORE ISSUES $ 4.50 EA 

ALL 101 ISSUES $260.00 

PURCHASE 20 OR MORE ISSUES 

AND RECEIVE A FREE 

6 MONTH SUBSCRIPTION , 



C> 



ANU HtUtlVt « t-Mtt A ^ 

iA 6 MONTH SUBSCRIPTION X^K 

COCO I, II, AND III 

• All Programs Include Documentation. 

• We Send 1st Class - No Charge! 

• For Inlormation on Subscription Prices, 
Turn to Pages 13 & 39 

$70 00' /^=^ 



TOM MIX PROGRAMS 



RAINBOW 

CERTIFICATION 
SEAL 



<y^ 




Mail Or Call ^ 

T&D SOFTWARE 

2490 MILES STANDISH DR. 
HOLLAND, Ml. 49424 

(61 6) 399-9648 



PLEASE CIRCLE 

TAPE 

OR 

DISK 



5 '7 S 33 II 13 57 55 73 81 89 97 

2 10 182!34<2505B66 7162909e 

3 11 II 27 SS 4S 51 H 17 75 83 II 99 

4 12 20 28 31 44 52 60 88 76 8< 92 100 

5 13 21 21 37 45 53 II 61 77 K 93 101 

6 14 22 X 38 It 54 62 70 78 86 91 

7 15 23 31 39 47 55 13 71 71 87 95 
S '5 2' 33 « 18 56 61 72 80 83 96 



Name 



Address. 
City — 



Card#- 



State Zip . 

Total $ . 




Graphics Utility 



CoCo3 



DS69View 

"Nothin' is free in this world. Sooner or 
later, it's going locosiya." my old man said 
more times than I can count. Well, maybe 
it's not always true. Steve Ricketts (STE- 
VEPDX) of Boring. Oregon wants to give 
you a copy of his DS69\ iew program. This is 
a real viewer program for DS-69A/B. 16- 
level. digitized . P I X pictures. 
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You don't believe me? Do you think it's 
one of those do-nothing programs not worth 
the disk space? Ha! This program is a 
radically altered version of C-SEi:. the soft- 
ware originally provided with the DS-69 
digitizer by Micro Works. Since Micro 
Works no longer markets this product. Steve 
asked for, and received, permission to re- 
lease his version as public domain soft- 
ware. So. as part of his agreement with 
them. Steve cannot make money from it. 
He must give it to you. You can copy it and 
give it to your friends. And it's all com- 
pletely legal. 

Just slide the disk into the drive and type 
RUITDS69VIEW. The first thing you see is 
the option for either a CMP (composite/TV) 
or an RGB monitor. Next, set the default file 
extension. (Most DS-69 pictures use . PIX.) 
Press ENTER to see the main menu. 

The menu has seven options. Option 1 is 
the directory listing the files on your disk. 
Option 2 loads a file. If the file you want to 
load has the default extension, simply type 
the name of the file. If the extension is 
different from the default, type it. too. The 
picture loads much faster than the original 
CSEE program. 

Options 3 and 4 are display options. 
Option 3 is Lo-Res and Option 4 is Hi-Res. 
The Lo-Res screen is approximately 325- 
by-225. The Hi-Res screen is approximately 
640-by-225. Option 5 saves the file under a 



different name or to a different drive. I have 
a lot of .PIX pictures and this was quite 
useful for sorting them. 

Option 6 allows changing the default 
drive from which files are saved and loaded. 
Option 7 allows you to quit the program. If 
you accidentally press 7. you are returned 
to the first option screen at which you can 
press ENTER to continue or Q to quit. 

If your library lacks digitized pictures 
there is no need to worry, the program 
includes eight digitized pictures to start 
your collection. As you spread the viewer 
program around, you'll find there are quite 
a few out there. For those of you with a 
modem and no digitized pictures, check 
your local BBS and Delphi. 

There is one catch to this free program. 
Along with your request, send S3 for ship- 
ping & handling and the cost of the disk. 
But if you have a modem and don't want to 
spend the money, the program has been 
posted on Delphi. After that, all you'll need 
is a CoCo 3 and a disk drive. 

So, Dad, you can get something for 
nothing — almost. 

(Steve Ricketts, 10625 SE 362nd #B32, 
Boring, OR 97009; 503-663-7169; $3 S/H) 

— Randy Cassel 

[Editor's Note: Mr. Ricketts has informed 
us there is also a version of DS69View for 
owners of the DS-69B. This version replaces 
the Lo-Res display option with the Id-level 
digitizing function. From the same menu 
you can load. save, view and create digit- 
ized images.] 



Word Processing 



OS-9 Level 



VED, VPRINT 

OS-9 has excel lent flexibility indirecting 
its input/output to different peripherals. For 
this reason, OS-9 word processors have his- 
torically been constructed as two separate 
programs used in two separate steps. For 
most of us, this is a difficult concept to 
understand. 

Any word processor program must per- 
form three main tasks. First, it must allow 
entry of your text or recovery of that text 
from some other source, such as a disk file. 
Second, it must output that text to a device. 
Finally it should provide for such added 



bells and whistles as search-and-replace, 
headers, footers, mail-merge, indexing or 
Table of Contents. Programmers usually 
combine these functions into one package 
and add some sort of executive control 
routine as an integrated word processor. 
But internally, the functions of screen edit- 
ing and of output formatting are normally 
done in two very different sub-programs. 
Some of the bells and whistles are more 
easily attached to the screen-edit function, 
while others are more easily attached to the 
text formatter. Others may be attached to 
both. 

Like most CoCo users. I run a mixture of 
Disk BASIC and OS-9. 1 have little patience 
with extremists who demand we all use one 
operating system. Certain tasks are much 
more pleasant under one system than the 
other. 

This OS 9 word processor is sold as two 
separate programs: VED (an editor) and 
i PRINT (a text formatter). One advantage to 
having two different programs is that it 
allows you to pick and choose. If you want 
a good, complete OS-9 word processor, get 
both programs and run them together. The 
VED/VPRINT package is the best OS-9 word 
processor I have seen to dale. If you are 
satisfied with either your editor or format- 
ter, purchase just one of these programs and 
use it with your current setup. 

VED 

The 28-page manual is clear, but updates 
are provided on the disk. All options work 
as advertised and the built-in Help file is 
adequate. The text-buffer size is normally 
53,txxi characters. If you need more space, a 
utility is included to break larger files into 
smaller ones for editing. The smaller files 
can of course be easily merged again with 
OS-9. Please note that while \ ED will oper- 
ate with I28K, I used it in my 5 1 2K CoCo 3. 

ved provides for up to 37 macros, allow- 
ing you to easily customize your editing 
environment. Each macro can be up to 28 
characters in length. This may not seem 
impressive until you consider the nesting 
feature, which allows one macro to call 
another. I used this feature to create a macro 
for my entire letterhead, which I then placed 
inside other macros that provide the ad- 
dresses of frequent correspondents. With 
only four key strokes. I can put both my 
letterhead and the recipient's address at the 
start of a letter. I do have to back-space to 
insert a code for the date, which is stored in 
a buffer in the companion program VPRINT. 

A file called VedDefs.txt holds pre- 
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defined sellings for labs, word-wrap, in- 
dentations and other common items. This 
file is also used to store the macros. A new 
VedDefs.txt can be easily created as 
needed. 

There are some items that take some 
getting used to. For example, carriage re- 
turns are not normally inserted in the text 
by the word-wrap feature, and you must 
remember the difference between a screen 
line and a text line. Inserting extra carriage 
returns is one way to eliminate this prob- 
lem, but results in a loss of some of the 
program's flexibility. Much the same prob- 
lem bothered me with earlier versions of 
Telewriter 64. and I found work-arounds 
that I built into my system defaults. These 

I become so much a part of the back- 
ground defaults that I found myself being 

ible fingers again when I initially 
configured VED. 

During search-and-replace operations, 
the enter key cannot be used to generate a 
carriage return. You should use the ALT- 
ENTER combination to do this. Wild-card 
^e:lrch is supported in a manner 1 found 



quite friendly. And in general, the global 
commands operate well. The manual even 
has a tip to search for a pattern that may cut 
across either a screen -line break or a text- 
line break. 

Those using VED for programming will 
enjoy the ability to jump to a line number. 
Others can use the alternate form that will 
jump to a text label. All the usual block 
commands such as Mark. Move. Copy and 
Delete are included and work well. Append 
is another useful block command. 

I did not cover all of VED because the 
program is just too extensive. In summary, 
this program has all the features I wanted, is 
well-organized, user-friendly and appears 
fault-free. As for the documentation, how- 
ever, when I wanted to save my file. I could 
not find Save in the Index except as a Block 
command. The real Save is on Page 20. not 
Page 15. 

VPRINT 

Although VPRINT is a slightly more- 
expensive program, it is much longer, with 
a manual of almost 1 15 pages. It should be 



noted that i print does not work in a 1 28K 
machine — you*ll need 5I2K. Though, while 
it hasn't been tested, VPRINT may work with 
the 256K upgrade from Disto. Default files 
are provided for most of the common print- 
ers used in the CoCo Community. Users 
can use the major features by implementing 
the proper default file and using the Ready 
Reference Document. The manual explains 
the process and how to redesign orcustom- 
ize your default files. 

I do take exception with one statement 
in the manual. The manual states that word 
processors packaged as a single program 
"...may be suitable for beginners, but usu- 
ally lack the power required for more seri- 
ous users..." Balderdash! This statement 
seems applicable only to OS-9. 

I did not try every feature VPRINT sup- 
ports. For example. I did not test its ability 
to create Indexing and Tables of Contents, 
even though these features are important to 
me. I had no suitable large file in OS-9 to act 
as a test case for this support. However. I 
am a fan of this program and found no bugs 
in either VED or VPRINT. 




P.O. Box 733 

Maple Valley. WA 98038 



U.S. ORDER DESK: 
(800) 237-2409 



INTL& TECHNICAL: 
(206)432-1814 



^ 



059 Software (* >= 25611; ■" >= 512M required): 

CyberVoice (Software only) - Run your S/S SuperVoice with OS9! 

FILE SYSTEM REPACK -- Popular disk defragmenter. 

R. S. B.' - Real Disk BASIC for Level 2 (BASIC ROM required). 

EZGEN 1.08 - Bootfile editor. NEW VERSION! 

PERTASCIT - Multi-user scrambled letter word game. 

WILD & MV -- Wildcard & move directory entry utilities. 

BHSIC Software (* >= 256M; *" >= 542H required): 

HYPER-I/O -- 16K Hard disk / big floppy BASIC. B&B or DISTO 
HYPER-I/O HD UTILITIES - K. Berner's wild copy, delete, search. 
DISK DOCTOR - K. Berner's GAT editor; also hides media defects. 
DAGGORPATCH - Disk patch for Dungeons of Daggorath. 
RGB-DOS FOR B&B - 8K Hard Disk DOS, great M/L compatibility! 
HYPER-I/O and RGB-DOS come on lloppy disk & aro EPROMable. HYPER-I/O allows large floppy and hard 
disk directories, with good M/L compatibility. RGB-DOS oilers superior M/L compatibility and 160K 
directories only. We recommend HYPER -I/O lor BBS £ BASIC use, RGB-DOS lor commercial ML S/W. 

Hffordable Color Computer Hardware: 

CyberVoice - Speech Synthesizer w/ OS9 software -- SPECIAL! 
COCO XT - Adapts PC hard drives to CoCo. OS9 S/W included. 
COCO XT-RTC - CoCo XT, with battery backed real-time clock. 
XT-ROM - Boots OS9 from B&B hard disk automatically. 
4' B&B HARD DISK CABLE SET - Extra long -- not the usual 24". 
OK QuarterMeg (Add 8 memory chips for 256K, piggyback to 51 2K) 
256K QuarterMeg (128K on-board + your CoCo 3's existing 128K) 
Deluxe 51 2K booster kit (Upgrades 256K board to 51 2K. w/chips) 
Bare 51 2K booster kit (Same as DELUXE, but no memory chips) 



$24.95 
$29.95 
$39.95 
$19.95 
$19.95 
$19.95 

$29.95 
$21.95 
$17.95 
$ 9.95 
$34.95 



$74.95 
$69.95 
$99.95 
$19.95 
$17.50 
$29.95 
$54.95 
$64.95 
$29.95 




CyberUoice speahs 

well for OS9! 

We've mated a high-tech SC-02 
speech synthesizer with an 
entirely new kind of OS9 device 
driver that actually lets you 
specily your own pronunciation 
rules. You can even control the 
style and pitch o( the voice - 
male. lemale, high, low, fast, 
slow - billions of combinations. 
Advanced features like 
instantaneous inflection control 
produce near human-quality 
speech! CyberVoice is compatible 
with the Speech Systems 
SuperVoice - buy HAW & S/W, 
or just the CyberVoice software. 




, WA RESIDENTS ADD 8 1% SALES TAX. , 
I U.S. CODs add $3.30. Min. U.S. , 
i shipping $3.00. Min. shipping lo Canada , 
< $4.00. Please allow 2 weeks lor delivery. , 
i Overnighi or 2-day delivery available tor i 
i in-stock items. Software upgrades $5.00 i 
yeach w/receipt. including U.S. shipping.^' 
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vprint supports multiple fonts, includ- 
ing proportional-spaced fonts, if your printer 
is so-equipped. It also supports double- 
column output and mail-merge. It allows 
conditional tests and Macros for program- 
ming printout formats. In short, this is the 
most comprehensive text formatter I have 
dealt with that retains user-friendliness. 

If you think I am prejudiced in favor of 
these two programs, you are right. 

(Bob van der Poel Software, P.O. Box 57, 
Wynndel, B.C. VOB 2NO Canada or P.O. 
Box 355, Porthill, ID 83X53-0355, 604-866- 
5772; $24.95 for VED; $29.95 for VPRINT) 

— H. Larrv Elman 



Music & Sound 



CoCo3 



CoCo MIDI Pro 

While reviewing CoCo MIDI Pro. I was 
reminded of when I joined the musician's 
union in 1972. For me it was an unforget- 
table time of waking at 4 p.m.. going to bed 
at 6 a.m.. traveling from place to place, and 
walking out of a club with more money 
than when I walked in. 

At that time "midi" referred to the length 
of a girl's skirt. If MIDI instruments were 
available, poor musicians like me knew 
little about them. Even now there's plenty 
about MIDI to which I plead ignorant. I do 
know that MIDI stands for Musical Instru- 
ment Digital Interface. It is an international 
standard for the transfer of musical infor- 
mation through digital signals. This tech- 
nology enables the computer to record and 
play like a tape recorder. One basic distinc- 
tion is that MIDI recording transcribes 
musical events such as timing, note values, 
volume levels, duration and other parame- 
ters. The computer does not record actual 
sounds the way a tape recorder does. 

To use CoCo MIDI Pro you must have a 
512K CoCo 3. a disk drive or cassette re- 
corder and a Multi-Pak Interface or Y- 
cable. You'll also need a hardware MIDI 
interface (included with the CoCo MIDI Pro 
package) and a MIDI keyboard or other 
MlDl-capable instrument. 

Simply put. CoCo Midi Pro turns your 
CoCo into a multi-track recorder for MIDI 
instruments. If The Beatles recorded the 
Sergeant Pepper's Lonely Hearts Club 
Band album on a four-track recorder, think 
what you can do with CoCo MIDI Pro's 16 
tracks. In addition, you can record over 
tracks so that the new music overlays the 
old without erasing it. This feature gives 
you the equivalent of 32 tracks. The poten- 
tial is limitless. 



CoCo MIDI Pro has many features — it 
isn't possible to list all of them in this 
review, but I'll cover the significant ones. 
CoCo MIDI Pro lets you use the CoCo in 
master or slave status — CoCo MIDI Pro 
can control or be controlled by other MIDI 
timing signals, such as those of a drum 
machine. Each of CoCo MIDI Pro's 16 tracks 
can be set to one of three modes: play, mute 
or solo. Play is the normal mode, mute 
silences particular tracks and solo focuses 
on certain tracks to the exclusion of the 
others. 

After you've recorded your perfor- 
mance. CoCo MIDI Pro provides you with 
various editing functions. One function lets 
you perform punch in/oui recording. You 
can also change the pitch, placement and 
length of any note. All the standard word- 
processor editing commands are available. 
With these commands you can insert or 
delete notes and midi events. All the stan- 
dard block operations such as marking, 
copying, moving, saving and loading are 
also available. Other block functions trans- 
pose all the notes in a block or set limits on 
the velocity, pitch, channel assignment and 
note length. Again, more can be done in the 
editing mode, but I haven't the room to 
explain it all in this review. 




CoCo MIDI Pro is menu-driven and easy 
to use. I had it up and running in minutes. 
Though the recording and playback proce- 
dures are simple, this is not to say editing is 
easy. You do not edit the music graphically, 
but rather as a sequence of events in a MIDI 
file. This is like trying to edit a text file by 
working on an ASCII dump instead of load- 
ing it into a word processor. So it would be 
difficult, at least for me, to sit down and 
write a musical score at the computer key- 
board. Although I guess it can be done, it 
would be tedious. More likely, you would 
record a passage live then adjust and cor- 
rect your score via the CoCo MIDI Pro 
software. 

How does it sound? To answer that 
question remember that CoCo MIDI Pro 
does not record sounds, it records events. 
Therefore, you must have a synthesizer or 
MIDI instrument to play your recordings. To 
begin with. CoCo MIDI Pro divides a beat 



into 240 "ticks." This translates into "what 
you play is what you get." Other similar 
products I've tried sound a bit off time. 
They have a tendency to move the real-time 
note to the nearest increment of time the 
software can record. The effect is similar to 
taking high-resolution graphics and dis- 
playing them on a low-resolution screen. 
They just don't look the same. The result 
with these other midi products is that they 
don't sound right. With 240 ticks-per-beat, 
however, CoCo MIDI Pro does not have this 
problem. My keyboard playing (mistakes 
included) was accurately reproduced by 
CoCo MIDI Pro. Playback was indistin- 
guishable from the live performance. 

CoCo MIDI Pro's documentation con- 
sists of a 46-page manual. The manual 
adequately describes all of the program's 
many features and contains a table of con- 
tents and index for easy referencing. My 
only criticism is that it goes on and on with 
few breaks in the text, except headings. A 
screen dump or picture here and there would 
help to lighten the reading. 

Before you go ahead and order CoCo 
MIDI Pro you should know that all this 
power and capability has its price; SI50 to be 
exact. Remember, however, the price in- 
cludes the MIDI hardware interface as well 
as the CoCo MIDI Pro software. I know of 
no similar product available for the CoCo 3 
that equals CoCo MIDI Pro. The only en- 
hancement I can imagine would be graph- 
ics editing. Graphics editing is a more 
familiar and natural method to musicians. 
Most second-generation sequencer software 
for other personal computers such as Amiga, 
Macintosh. Atari and IBM have that capa- 
bility. If you are a musician, or own midi 
equipment, and have a CoCo 3, you'll want 
to get your hands on CoCo MIDI Pro. Hats 
off to author Lester Hands. 

(MusicWare, Hamlet Route Box 1261, 
Seaside, OR 97138; 503-738-01 19; $150) 

— Ernest F. Zore 



Utility 



CoCo 1 . 2 & 3 



Directory Library 

Directory Library is a utility program 
written for your CoCo 1 , 2 or 3 with at least 
one disk drive. It supports single- or double- 
sided drives as well as multiple drives. 

Directory Library lets you consolidate 
all of yourdisk directories into a single file 
to organize and manage your disk library. 
This makes it easy to locate the disk con- 
taining any particular program or data file 
you want. You can also make a hard copy of 
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the directories on your disks that can be cut 
out and slipped into the disk jacket. The 
author has wisely chosen to set the program 
up similar to a book library. The library 
contains shelves of books and each book 
contains a table of contents. Directory Li- 
brary is the shelf, any disks are the books 
and their directories become the table of 



Directory 
Library lets you 
consolidate all 
of your disk 
directories into 
a single file. 



contents. This theme is used throughout the 
program and makes it easier to understand 
the program's logic. In organizing your 
directory library, you may create as many 
shelf disks as you want. As "book" disks 
are added to the "shelf, they are assigned 
numbers that are like book titles. All you 
have to do is write a number on the disk. 
then at any time you can add. update, search, 
view or print any. or all. directories using 
the program. Furthermore, you can search 
your directory library for a single program 
or data file by its name and the program 
tells you what disk number it is on. Although 
OS-9 disk directories can't be read by Direc- 
tory Library, a special name can be as- 

ned to help you locate OS-9 disks in your 
library. 

Directory Library is written in BASIC 
and is not copy-protected, so you can make 
a backup copy for your own protection. A 
M\-page. easy-to-follow instruction book- 
let is included to get you up and running in 
a matter of minutes. To start the program, 
(imply type RUN "L" and press ENTER. The 
date must be entered at the beginning of 
each session. The program defaults to 000000 

1 i date is entered, but this defeats one of 

the primary benefits of being able to see the 

date your program or file was last revised. 

lain menu is displayed that provides the 

us selections. 

Directory Library isagood, solid utility 



that does what it's supposed to. It goes 
about its task with no fuss or bother. I 
highly recommend the use of a printer to 
keep things nice and neat. Like any good 
disk cataloging program, this one also re- 
quires consistent use to be effective. 

(Johnson Software, P.O. Box 92, Dayton, 

OH 45449; $17.50 plus $2 S/H) 

— Robert Gray 



Utility 



CoCo 1 , 2 S 3 



Picture Disk 1 

Spruce up that sign, card or invitation. 
Add some artwork to a school, community 
or user's group newsletter, even if you 
can't draw a straight line with a ruler. If you 
have ever traced a transparency from a 
screen that looks like the artwork of a 2- 
year-old, call clip art to the rescue. 

Clip art is what someone else (usually an 
artist) creates, and you get the glory by 
simply pasting their pictures into your sign 
or document. Zebra Systems helps you 
complete your graphics needs with Picture 
Disk I. The clip art on Disk 1 is grouped 
into four categories: People, School, Sci- 
ence 1 and Science 2. Each category 
contains 30 pictures for a total of 120 pic- 
tures in the package. 

According to the manual, the artwork 
was designed by professional graphics 
designers. The files are in CoCo Graphics 
Designer (CGD) and CoCo Graphics De- 
signer Plus (CGDP) format. The disk con- 
tains conversion utilities for generating 
CoCo Max. CoCo Max II. CoCo Max III and 
Max 10 formats. A disclaimer states that 
deciphering the file formats forColorware 
products (the CoCo Max line) was accom- 
plished independently without assistance 
from, or endorsement by. Colorware. 

This package includes one disk, a printed 
manual and 15 pre-printed labels. These 
labels are used to mark the working disks 
you must create to use the clip art. To create 
working disks, place the original disk in 
Drive and run MAKEWORK. During the proc- 
ess you are prompted to alternate between 
original and working disks. 1 suggest that 
Zebra take into account the possibility of 
systems with multiple drives. Nothing is 
more aggravating than paying a couple of 
hundred dollars for a second drive to make 
procedures like this easier and then having 
a program totally ignore the machine's 
resources. 

Before running MAKEWORK. you must 
know which file format your graphics 
package uses. Depending on the destina- 



New 
Modems 






(1) Two versions ot SondFaxModems 
Send any lexl file and most graphics files from 
your computer lo any Fax machine in the 
world. Both external and internal (lor PC) 
models. And with lull 2400 Baud data modem 
capability. 

(2) V.42/V.42bls 2400 Baud data 
modams. 

These have both error correction and data 
compression (gives much higher effective 
throughput, as much as 9600 Baud). 

All are high quality modems made by Zoom 
Telephonies in the USA, with performance 
leatures unmatched by competitors costing 
three times as much. 

Fully Hayes compatible. Work with any 
computer. 

All the features you expect in state of the art 
modems. With two year mfg warrantee (a 
seven year warantee is available). 

Money saving premiums for Delphi, GEnie, 
CompuServe, etc. 

ProcComm (PC) + $5 QuickLink (Mac) + $5 
WizPro is free (shareware) 

Solid Fix external modem $148.00 

Send Fax internal modem (for PC) $139.00 

Come with software lor PC or MAC 
your choice (ask about Granite 
Computers OSK telcom software) 

2400 v.42/v.42bl« external modem $235.00 



2400/1200/300 BPS external modem 
Internal modem (for PC) 



$115.00 
$105.00 



R«H add USA - ihppxig and handtag S3 50 
Canada* Af PP and kiauanoa »7.«6 

GCS FILE TRANSFER UTILITIES 

now updated to Version 3.0 

The GCS File Transler Utilities provide a simple 
quick method lo transfer lexl and binary tiles to and 
Irom a variety ol lloppy disk tormats. 

Need to transler files lo and trom PC (MSDOS), 
RSDOS. FLEX or MINI-FLEX disks on your OS-9 
system? You need GCS File Transfer Utilities. 

Commands Dlr, Dump. Read. Write. 

Rename, Delete. Format PC disk 

Dlr. Dump. Read Write RS or FLEX disk 

Version 3.0 handles mosl 5.25 and 3.5 formats. 
Any level sub-directories (PC). Binary tiles. Use 
pipes lor direct and multple transters. Multi-Vue 
version can be used under Muttl-Vue or as stand 
alone Shell commands. 

Requires OS-9 L2 for COCO 3 LI tor COCO 1 or 2 
2 drives (one can be hard or ramdisk. 
one floppy 40 T DO DS). 
MuBi-Vuo for Multi-Vue version 
SDISK3 lor COCO 3 
SDISK lor COCO t or 2 

GCS File Transfer Utilities for CoCo 

Multi-Vue version $54.95 

Standard version $44.95 

Version 3.0 update - either version 
(provide disk number) $15.00 

D. P. Johnson SDISK or SDISK3 $29.95 

LI & L2 UHilies $75.00 

Ask about FORTH09 (6809 s OSK) 

Standard doMWa aia OS 9 lomal (5 25"l ■ add S2 SO k» 3 S" 
Ode., mull b. prapak) a COO VBA/MC accpa-d Add II 75 
S»H COOiiaddilonal 

GRANITE COMPUTER SYSTEMS 

571 Center Road Hlllsboro, NH 03244 

(603) 464 - 3850 

OS-9 « a » ad-mark d unaware Synema Caporaaon and 
MouaalK. MS-COS * i ledwna* ol Muxoec*. Corp FLEX k a 

nada-naH a ISC. Inc 
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lion file format, you need a number of 
blank, formatted disks. For example, to 
create a working disk with files in the CoCo 
Graphics Designer Plus format, you need 
one disk. If you want to format for CoCo 
Max ill. you'll need four disks. The manual 
includes a table that clearly indicates the 
number of disks you need for each case. 



There is no 
longer any reason 
not to spice up 
that newsletter, 
card, invitation or 
sign. 



From the menu in MAKEWORK. select the 
formal for the working disks. When label- 
ing the disks, check each pre-made label 
carefully before applying it — the labels 
are very similar. Also, even though the 
manual says you should label working disks 
as soon as they are made. I suggest you 
check the disks first — you wouldn't want 
to ruin such nice labels just because a disk 
is defective. 

The manual provides specific directions 
for using the picture disk with each type of 
file format supported. I was unable to ex- 
periment with programs I do not own. but 1 
read the instructions for their use. 

I made a backup of the master disk and 
prepared four disks as working disks for the 
Coco Max III format. Each category was 
placed on a single disk, in three separate 
scrapbooks. 

After running MAKEWORK, I received the 
message "Picture Disk. Place picture disk 1 
into drive then press any key." I replaced 
the disk with the blank disk and immedi- 
ately received an NE error. I checked the 
indicated line number to find the program 
was trying to load a picture database. I ran 
MAKEWORK again, and on getting the Picture 
disk message I left the original Picture disk 
in. I then received a message to insert the 
working disk. It might be best to eliminate 
that first message or rephrase it. Of course, 
having the program use both of my disk 
drives would have eliminated this mistake. 

As each clip-art piece is converted, it is 
generated on screen. This process takes 
approximately 21 minutes per category. The 



program indicates when to change disks 
and when the process is finished. I do not 
like it that MAKEWORK refuses to return con- 
trol back to the user. 

Once you have generated the clips in the 
correct file format, read the few paragraphs 
on how to incorporate the Zebra graphics 
into your program. Then start pasting. 

The means through which you incorpo- 
rate the clip art is a function of your graph- 
ics package, so I can only comment on the 
quality of the conversion. Since I do not 
own Zebra Systems' packages, or have 
access to them, I could only compare the 
conversion clips to examples in the man- 
ual. The cover had some examples of the 
clip art from each category. On pages 6 and 
7 you find the Picture Disk 1 Quick Refer- 
ence Sheet, a printout of all the graphics 
images and their names. The conversions 
were true to the samples in the manual. 
Despite the earlier disclaimer it seems Zebra 
has mastered the file conversion process. 

I had no problem pasting various graph- 
ics into CoCo Max III and printing them. 
Once in CoCo Max. you can perform any of 
its functions on the clip art, including fat- 
bit editing and filling them with colors and 
patterns. A sample of the pictures on Pic- 
ture Disk I includes grads. teachers, stu- 
dents, doctors, dancers, babies, business 
people, speakers and families. 

The School category contains personal 
hygiene pictures, toothpaste, soap, show- 
ers, combs. It also contains an eyechart. 
anti drugs and no smoking signs, fruit, 
books, pencils, clocks, the world, a map of 
the United States and a school bus. 

Science 1 has addition charts, rulers, 
beakers, bunsen burners, test tube racks, 
scales, a benzene ring, an atom symbol, 
lungs, a cut-away section of the eye, a skull. 
DNA. a dissected frog, the heart, a magnet, 
a battery, a drawing of a circuit. Ohm's law. 
a voltage meter, an oscilloscope and a 
chemical bottle. 

Science 2 contains a phone, clock, pho- 
nograph, light bulb, computer, prop plane, 
movie projector, calculator. Walkman, 
camera. TV, rocket, planets, thunderstorms, 
thermometer, pulley, gears, magnifying 
glass, microscope, convex and concave 
lenses, robot, comet and tornado. 

My criticisms of Picture Disk I are 
minor. 1 would like to see the MAKEWORK 
program use more than one drive if more 
than one is available. I feel the first message 
about inserting the Picture disk in Drive 
after starting MAKEWORK from that disk is 
misleading and causes difficulties for the 
novice. Also, the cover of the manual de- 
picts two graphics iamges. a diploma and a 
representation of forces, that are not in- 
cluded in the Quick Reference sheet or in 
the graphics files on disk. I also noticed 



while saving the first scrapbook of Science 
2 images, the message onscreen indicated 
the program was saving the Science 1 scrap- 
book to disk. 

This product is directed toward chil- 
dren, teachers and parents who create 
newsletters. It would be very useful for 
school science newsletters, or the science 
club, since the clip art is heavily concen- 
trated in this area. At S 14.95. it is a bargain 
(less than 13 cents per graphics image). 
Zebra Systems has produced a useful prod- 
uct. Since the package is called Picture 
Disk I. it would seem that more clip art is 
forthcoming. There is no longer any reason 
not to spice up that newsletter, card, invita- 
tion or sign. Whether or not you draw well, 
you'll want to reach for Picture Disk I . 

(Zebra Systems, Inc., 121 s. Burrowes 
Street, State College, PA 16801; 814-237- 
2652; $14.95) 

— Kav Cornwell 



Game 



CoCo 3 



La Belle Lucie 

If you enjoy playing solitaire card games, 
this computerized creation is for you. I was 
impressed from the first time I ran it. 

La Belle Lucie is a solitaire game that 
captures the look and feel of an actual game 
with playing cards. The game is set up with 
52 cards placed face-up in overlapping trios. 
The cards are played in descending order 
within the same suit. The object of the game 
is to play all 52 cards on the four suit 
foundations in ascending order. This must 
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be accomplished in three deals. After the 
third deal, you are allowed to take a Merci, 
or one free card move, as a last chance to 
complete the goal. The cards are controlled 
with the joystick and fire button, which 
gives the feeling of actually handling the 
cards. 

The game instructions are included on 
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Still pounding away at that keyboard? 




Save Time and Money with a Combination Subscription! 



SAVE up to 19% 

when you buy a joint sub- 
scription to the magazine and 
either rainbow on tape or 
rainbow ON DISK! A one-year 
subscription to the rainbow 
and rainbow ON tape is only 
$91 in the U.S., $108 in Can- 
ada, $153 foreign surface rate 
and $188 foreign airmail. A 
one-year subscription to the 

RAINBOW and RAINBOW ON 

disk is only $115 in the U.S., 
$138 in Canada, $183 foreign 
surface rate and $218 foreign 
airmail.* 

Every month, these convenient 
services bring you as many as 24 
eady-to-run programs. Using the 
current issue of the rainbow as 
documentation, all you have to do is 
load and run them. A one-year com- 
bination subscription to the rain- 



bow and rainbow on tape or rain- 
bow on disk give you more than 230 
new programs! The typing time you 
save can be spent enjoying your 
CoCo! 



RAINBOW ON TAPE 
For No-Fuss Fun 

Back issues of rainbow on tape 
are available beginning with the 
April 1982 issue. A single copy of 
rainbow on tape is $10 within the 
United States; U.S. $12 in all other 
countries. The annual subscription 
rate for rainbow on tape is $80 
within the U.S.; U.S. $90 in Canada; 
and U.S. $105 for all other coun- 
tries.* 



RAINBOW ON DISK 
Offers OS-9 Programs 

In addition to all the programs 
offered on tape, part of one side of 
rainbow on disk is formatted for the 
OS-9 operating system. That means 
you can now get all the OS-9 pro- 
grams from the magazine — pro- 
grams that cannot be put on tape. 
Back issues of rainbow on disk are 
available beginning with October 
1986. Subscriptions to rainbow on 
disk are $99 a year in the U.S. Cana- 
dian rate is U.S. $115. All other 
countries, U.S. $130. Single copy 
rate is $12 in the U.S.; U.S. $14 in 
Canada; and U.S. $16 in all other 
countries." 



To order by phone (credit card orders only), call (800) 847- 
0309, 8 a.m. to 5 p.m. EST. All other inquiries call (502) 228- 
4492. 

Look for our envelope located between pages 66 and 67 for 
ordering individual subscriptions to the rainbow, rainbow on 
tape and rainbow on disk. 



YES! Sign me up for a joint 1-year subscription (12 issues) to: 



□ THE RAINBOW and RAINBOW ON TAPE 

□ THE RAINBOW and RAINBOW ON DISK 

□ NEW D RENEWAL (attach labels) 



Name — 
Address 
City 



Payment Enclosed □ ("payment must accompany order) 
Charge: □ VISA □ MasterCard □ Am. Express 
Account Number 



State 



ZIP 



Signature 



Exp. 



•U S currency only, please. On order to hold down costs, we do not bill. Kentucky residents add 6% sales tax: Canadian residents, 7% GST. Please allow 6 to 
! weeks lor delivery ot lirst copies. Joint subscriptions to the rainbow and rainbow on tape or rainbow on disk begin with the current issue. 
Please note- While qroup purchases ot RAINBOW ON TAPE and RAINBOW ON DISK are permitted (an* multiple subscriptions are even discounted, it purchased in one 
xder from a club), no license .0 make copies is conveyed or implied Yes, your group may even purchase a subscription to our disk/tape ««v«es^i u such p. arena e 
.vav authorizes lha. any copies be made ol that original disk/tape. Specifically, this means that the original disk/tape itself may mdeed be Kept in a club library 
tor use bv members However, a group purchase does not entitle club members, individually or as a group, to copy that disk/tape 
Unauthorized copying ot any copyright product is strictly illegal The copyright (right to make copies) is in no way conveyed in the purchase transaction 



the disk and can be called up ai any point 
during play. 1 especially appreciate this as 
it eliminates the need to keep up with the 
instruction sheets. 

La Belle Lucie features full-color graph- 
ics that are clear, crisp, easy to read and not 
abrasive to the eyes. The game is very 
quiet. There are no distracting sounds or 
noisy music. In fact, the only sound in the 
game is a beep, which is heard when you 
attempt an illegal move. The little reward 
picture shown following a winning hand 
might put a smile on your face. 

The game has a minimum of internal 
packaging so as to be environmentally 
compatible. Rather than bubble-pack, which 
is common to most packaging, a sturdy 
cardboard package is used. This cardboard 
package can be recycled. I commend Ever- 
soft's effort. 

La Belle Lucie requires a CoCo 3 with 
128K. a disk drive and a joystick or mouse. 
It can be used with either a TV or an RGB 
monitor. 

(Eversoft, P.O. Box 3354, Arlington, WA 

98223; 206-653-5263; $14.95, plus $2 S/H) 

— Linda Manning 



Utility 



CoCo3 



COMERR 

Many years ago when Color Computers 
were still silver and 32K was a lot of mem- 
ory. I purchased an interesting card to go 
with my CoCo. This card was printed in 
many colors on a dark-gray background 
and folded something like a road map. It 
contained a myriad of wonderful facts about 
the Color Computer, including some an- 
swers to questions I wouldn't have thought 
to ask. Most important, however, was that 
it brought all that information together in 
one place when it was needed. A few years 
later. THE rainbow sent out with subscrip- 
tion renewals a large sheet that reprinted 
some of their best hints and tips, as well as 
some very short routines, all of which I 
keep prominently posted next to my com- 
puter desk. 

David E. Chipps. of R.S. Research Asso- 
ciates has tried to re-create some of that 
convenience with his recent package called 
the comerr series. It consists of three BAS- 
IC programs on a single disk. I shall deal 
with them in order of complexity. 

The most simple is COMMANDS. 128. which 
lists 90 Color Computer 3 commands on the 
screen in alphabetical order. Press BREAK 
to bring up approximately 75 commands. 



Each command is associated with a number 
that can be used to select a short, one-line 
description which appears below the menu. 
The descriptions are rather succinct and are 
generally taken directly from the standard 
Tandy BASIC and Disk Manuals. COMERR 
1.128 is the same as COMMANDS, except it 



La Belle Lucie 
features full- 
color graphics 
that are clear, 
crisp and easy 
to read. 



includes a third screen with approximately 
40 alphabetized errors and their correspond- 
ing codes. The commands appear on the 
second screen once you press BREAK. 

I could not run the third program in the 
package, COMERR 1.512 since it requires 
Microcom's 512K BASIC disk boot, a rather 
rare memory utility I don't own. I haven't 
even been able to locate it in Microcom's 
advertisements in THE rainbow. I tried 
running COMERR 1 .512 under DanoSoft's 
Big basic and wound up trashing my direc- 
tory (a good reason for always making a 
backup!). 

The documentation with COMERR is 
rather skimpy, despite the fact it contains 
the complete BASIC listings of all three 
programs. The actual instructions are 
printed on a single 6Vi-by-Wi sheet and are 
somewhat vague. The product, however, 
needs only a little push and it runs itself. 

Perhaps I'm getting a little spoiled 
working as a programmer on huge main- 
frame computers at a large insurance com- 
pany, but my idea of an online Help utility 
is more along the lines of a pull-down 
apparatus or a hot-key arrangement, not a 
stand-alone product. It seems in the time it 
takes to flip through the disk file to find 
COMERR and load and run it. I could thumb 
through the manual and find the same ref- 
erence while the program I am working on 
is still on the screen. I do not mean to 
malign the product. It works quite well for 
its intended purpose, but perhaps the scope 
could be a bit broader. The price could 
certainly be lower. A S25 tag is quite steep 



fora product that would be more at home as 
a submission to THE rainbow than as an 
offering in the highly competitive mail- 
order marketplace. 

The author recommends using the prod- 
uct as a development tool. I accomplished 
this by placing most of the COMERR 1 . 128 
package at the end of a program I was 
working on and leaving the ON BRK GOTO 
statement as Line 1 . If you get stuck with an 
unusual error or stumped on syntax, press 
BREAK for a brief summary of what the 
manuals offer. Unfortunately, the 
approximate 5K available after COMERR is 
loaded isn't sufficient for any ambitious 
programming. 

COMERR is a marginally useful family of 
programs offered at a price that should 
make the buyer think twice before order- 
ing. Its limited capabilities do not justify 
the S25 tag, unless you're the sort who can 
never find the manual when you need it. In 
any case, perhaps you should consider find- 
ing or making your own reference card (on 
cardboard). 

( R.S. Research Associates, 479S. River St., 
Wilkes-Barre, pa 18702, 717-822-7535; $25) 

— Fred Toon 



Utility 



CoCo 1 , 2 & 3 



Rainbow Indexes 

Have you ever wanted to find informa- 
tion from an article you read in THE RAIN- 
BOW, but you can't remember which issue? 
Or thought of buying a program and won- 
dered if it had been reviewed? To find this 
information, you break out your stack of 
THE rainbow anniversary issues and ex- 
amine the indexes. Well, no more. With 
Rainbow Indexes, the needed information 
is just a few keystrokes away. 

Rainbow Indexes comes on two disks 
and works with any ColorComputer with a 
disk drive. The program includes a single 
instruction sheet that provides complete 
operating information. The disks contain 
six programs and two indexes. The pro- 
grams are divided into three categories: 
CC3ART.BIN and CC12ART.BIN provide 
indexes to the articles: CC3RTD.BIN and 
CC12RTD.BIN provide indexes to the re- 
views and the rainbow on tape/disk 
contents: and PRTARTIC.BAS and 
PRTINDEX.BAS print the indexes via your 
printer. 

CC3ART.BIN and CC12ART.BIN index all 
the articles that have been published in THE 
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rainbow over the last 10 years. These ar- 
ticles are broken into 27 categories ranging 
from Assembly Language to Word Proc- 
essing. One Liners, Hints and Questions 
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and Answers. Both programs start by dis- 
playing a menu of the categories. The CoCo 
3 version displays all 27 at once, while the 
version for CoCo 1 and 2 shows them in 
three sections of nine each. To select a 
category, simply use the arrow keys to 
move the cursor onto the desired topic and 
press ENTER. The CoCo 3 version (hen 
displays the article titles on the screen 15 at 
a time. The entries are sorted by author and, 
within one author's articles, by title. The 
month, year and page number are also dis- 
played. To find an article, scroll up and 
down with the arrow keys or press the first 



letter of the author's last name to jump 
straight to the top of that section. The CoCo 
1 and 2 version works in much the same 
way, although it displays only two entries 
at a time. 

The Reviews and Tape/Disk database 
works the same way . A menu allows you to 
select which of the 10 years of reviews or 
tape/disk programs you want to view. The 
reviews are sorted by product name and the 
tape/disk programs are sorted by filename. 
The review entries show the product name 
as well as the month, year and page number 
of the review. The program entries show 
the program name, a description and the 
month, year and page number. Finding a 
particular entry works the same way as for 
the articles. 

The Print programs allow printing of the 
Article index by category and the Reviews 
and Tape/Disk index by year. Select the 
appropriate topic from the menu to print a 
hard copy. 

I found these programs very easy to use. 
They certainly beat searching through old 
magazines. My only suggestion would be 
to include specific questions in the Ques- 
tions and Answers section instead of just 
the column titles. Overall. I think this is an 
excellent set of programs and is well worth 
the price. If you find yourself constantly 



looking for articles or reviews in back is- 
sues of THE rainbow, these programs are 
for you. 

(Rick's Computer Enterprise, P.O. Box 
276, Liberty, KV 42539, 606-787-5783; $10, $2 
S/H) 

— Robert Marsa 



Utility 



OS-9 



Goodies Disk One 

Utilities — some people hate them while 
others can't get enough. Goodies Disk One 
from The Warped Drive is a collection of 1 
ready-to-run utilities. These utilities are 
written in BASIC09 and compiled to 1-code. 
The package also includes all appropriate 
documentation. The utilities on this disk 
include: 

CCount — provides a count of how many 
times a specific character appears in a file. 

DriveSpeed — determines the time it 
takes to read one megabyte (by continu- 
ously reading the first 1024 bytes on the 



Lyra 



Lyra, the ever popuplar music editor that 
lets you compose music using a mouse, 
is also available for the IBM PC. All the 
music you make with the CoCo version is compatible with 
the PC version. Only $37 for Lyra and the 100 page Lyra 
Companion. 

CoCo MIDI Pro 

CoCo MIDI Pro is a complete 16 track MIDI recording 
studio. Play music on your MIDI synthesizer and record it 
into your CoCo. Modify it with CMPro's powerful editing 
commands, and save it to disk or tape. Many professional 
musicians use the program and say that it is every bit as 
good as sequencers running on the IBM PC or Mac. Only 
$125 for the program and the required MIDI interface 
program pak. 

^^ ^^ Hot CoCol is a 50 

Hot CoCo! minute audio tape 

****** w "^^w^ l— ■' '■ that shows you how 
other musicians have put our products to good use. Check 
out the Rainbow October 1990 review that described this 
tape as "an excellent purchase, and I recommend it for all, 
whether or not they have a CoCo." Only $9.95. 

And don't miss our collections of music for Lyra-Lyra 
Lybrary Classics and Streidt's Classics Over two hours 
of great classical musical in each. Only $22 each collection. 

MusicWare 

Hamlet Route Box 1261 

Seaside, OR 97138. 

Phone: (503) 738-0119. Ask for Lester Hands. 

Mastercard or Visa orders are welcome. Prices 

nclude shipping. 
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Mpfia Software ^ecfinotogies 



£jj£j DaU- Windows £&£ 

This is ihe ultimate database package for the COCO. System features include user definable 
fields, multiple key fields, automatic sorting, fast searching, browsing, user definable edits, user 
definable windows (database views), import/eaport/merge, cut/copy/paste, and even report and 
mailing label generation racilitiea. Make* full use of Multi - Vue, but docs not require it to run! 
Mulli - Vue style interface makea it Easy to use! 512k OS9 Level II Required —..559.95 



£&j DaU -Merger £jr£ 

Eisily create personalized mail- merge documents for your client/customer database, create 

invoices for your small business. Many capabilities include conditional printing, conditional 

print blocks, page fonnalling. repeating blocks, and more. Can be used with your favorite 

word pro cessor for ultimate printing control. Sl2k QS9 Level II Required ... :: . : . !:: S19 : 93_ 

,^™^™^^^^^^^^^^^^^7t^lT^TrliT!r^^^ 

Allm one RAM Rttidenl aof tware for the COCO. ta.«fc* Nwe-Pwi. cdctiUur. f*J™f". "Sfsff^KkM 
pto book, clock. OCT conmiandm-^ aiding 



Utilities 



Uv«l II Took 
25 Great tools to make you OS9 life earner. Complete 
wildcard, dure lory tree, sod wiotowiog command* 
help bcpunneri and experts alike' 
128k OS9 Level II Required 424.95 

Disk Maniger Tree 
No more fighting with compki directory atnicuire*. 
and long palb Dame*. Uae window* to view, create, 
copy, and delete file* and director** with tingle 
keyitrokeal 512k OS9 Level II Required.. ...S29. 95 

The Zipper 

patched anything! Patch command* on diak. patch 
the OS9Boot f de. fi« CKCa. aave loal file*, fu 
<lulu. Mk OS9 Loci I or II Req, S19.95 

Multi-Menu 
Create your own pop down menu* caailyt Run any 
OS9 program from the menu. No programming 
reqiuredT5l2k<)S9 LQ4 IflH-VM Req..-$J9.95 



Communications 



OS9 Level II BBS 

Complete ayatcm come* ready to nui Uac the buill 
maetuporcRajeyouiown. Cumpkiely cuatomiie 
able. Fe*ture*:X/Y Modem, keyword*, unlimited 
mcjeagc b**t*. ANSI graphic*, ace the board while 
uruna. andmotel 5I&OS9L D Req $29.95 

Warp • I 

Com pie le terminal ptogr am include* Auto- Dial/ 
Macro, X 4 Y modem. ANSI a^ptnc*. buffet cap- 
ture, chal mode, timer, and morel 
SI 2k OS9 Level II ft RS-232 Pak Rcy .... 53-1.95 



Hardware 



Comm-4 
Ga an incredible 4 aerial pan* to 1 PAJCI Coonea four 
tDodaiWpnnicn at once! Connect a Microaoft (PC) 
mouacl Special pulaod IRQ prevent* Uxkup*.. Come* 
with netwodong aoflware to ibare penphcralal Perfect 
fQramuluUneBBSICOC0 3Req SW4Q5 



(504)649-5176 (voice) tJ2D Alpha SoflwireTechnoiogaw CvisaJ (504)649-5761 (BBS)) 
pteaae^dlioonw-va Handling 210 BluefteM Dr. Sltde.1, LA. 70458 
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media) from a device such as a floppy disk 
or hard drive. This is useful for finding the 
optimum interleave for hard drives. 

Random — determines to random num- 
bers within a specified range. 

Chown — changes the ownership of files. 

FPark — parks the drive head of a floppy 
device. 

SetUID — sets the user ID number of an 
os-9 process. 

Coi nToss — simulates a coin toss. 

Get ID — reports the user number of a 
process. 

Colors — allows you to determine suit- 
able colors for a color monitor. (Level It 
only.) 

Median — calculates the mean and the 
median for a set of numbers. 

These utilities offer something for ev- 
eryone. The color utility operates only on a 
CoCo 3 with Level II. but the remainder of 
the utilities work on OS-') Level 1 or II. Also 
included on the disk is the BASIC09 source 
code for each utility. The disk incorporates 
the convenience of a ready-to-run utility as 
well as a source of good programming 
techniques. Even if utilities are not your 
main interest, the educational value of this 
disk makes it an irresistible temptation. 
And considering the price, you can't possi- 
bly go wrong with this purchase. 

(The Warped Drive, 54 Martindale Dr., 
NE, Calgary, ab T3.I 2V4 Canada; $12, $14 
CDN) 

— Donald D. Dollberg 



Utility 



CoCo 1 , 2 & 3 



Mixed Blessings 

Mixed Blessings is a collection of 23 
programs that run the gamut from a font 
demo to a CoCo security system. There is 
also a sprinkling of games, music and graph- 
ics thrown in for good measure. No matter 
what your computer interests, chances are 
you'll find something that captures your 
attention. 

Shorties is a group of one and two liners 
that, among other things, draws a polygon 
of any number of sides, converts a number 
to any base and has a text-screen game in 
which the object is to avoid running into 
obstacles. If you are a long-time reader of 
THE rainbow, you may have seen deriva- 
tions of these same programs over the years. 
Now you have a handful of such programs 
in one neat package. 

Show me a computer user who says he 
never plays computer games and I'll show 



you someone who lies about other things as 
well. Saturn's Rings is a poor-man's ver- 
sion of Asteroids in which your space ve- 
hicle can blast the boulders in only one 
direction. It does, however, have the added 
feature of refueling at stations conveniently 
placed among the boulders. Robot vs. the 
Fatal Computer is a shoot-everything-un- 
til-nothing-is-left game. The premise is to 



Mixed Blessings 
is a collection of 
23 programs that 
run the gamut 
from a font demo 
to a CoCo 
security system. 



destroy the rogue computer's brain as it 
drops bombs on you. Talk about being 
user-unfriendly. Turmoil is a text-screen 
arcade game with a graphics-screen teaser. 
You are shown a Hi-Res graphics screen 
with three spinning dials and asked to press 
the 1-2-3 keys to stop the dials from spin- 
ning. Although well done, this sequence 
struck me as having no direct relationship 
to the game. However, the dials determine 
which room your player is sent to — one of 
nine randomly selected rooms. Each room 
offers a different challenge in either getting 
to the other side, avoiding obstacles, col- 
lecting objects or answering riddles. Chess- 
board is a two-player chess game that, 
among other things, checks for illegal 
moves. 




For more serious users Mempeek is a 
program that lets you explore the CoCo's 
ROM. Screenmaster allows for the creation 
of up to 24 Lo-Res graphics screens which 
can be stored in the pmode graphics area. 
There is also a Selective Backup and a Disk 
Auto Copy. The Selective Backup copies 
only those sectors with data and skips over 



the blank sectors. Disk Auto Copy copies 
the entire disk. 

Mailing Inventory allows you to store 
up to 500 names and addresses on one disk. 
For those who like and use macros there is 
Macro Masterpiece, a program designed to 
help you memorize macros through a small 
printout and a quiz to become more profi- 
cient in their use. Security System is a 
program that can detect movement through 




the right joystick or a light pen. To scare a 
prowler it can flash a red screen as well as 
turn on a tape recorder with a pre-recorded 
message or siren. 

For graphics buffs there is ademocalled 
FourlordDemo. This demodraws graphics 
screens to show the power of M/L routines, 
such as scrolling up. down, left and right, 
reversing colors or turning the image up- 
side down. Fourlord Demo is a good dis- 
play of the CoCo's power. 

The best program and. perhaps, the rea- 
son to get this package of programs is 
Mazemaker //. This program generates an 
infinite number of random mazes with 1 1 
levels of difficulty. It checks to see if the 
maze is solvable. The user can then save it, 
try to get through it or edit it for increased 
or decreased difficulty. Mazemaker tit uses 
the CoCo 3's Hi-Res screen, but cannot 
check solvability on Level 1 1 . The program 
is available on both disk and tape and 
provides a dump, but only for the DMP-105 
and compatibles. 

Space does not allow me to list every- 
thing on the disk. The package comes with 
eight pages of documentation and instruc- 
tions, with the highlights of each program. 
There is even a list of useful peeks and 
pokes printed on one of the pages. 

A few of these programs work only on a 
CoCo 3. but most work on any CoCo with 
Extended basic and at least 32K. Those 
using a CoCo 3 may find that some pro- 
grams disable the automatic HCLS feature. 
To restore it. enter POKE 59078.141. 

(John Friedrich, Grove City College, Box 
1877, Grove City, PA 16127; 412-458-3088 or 
412-224-4194; $12.95) 

— George Aftamonow 
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7 Color 
Printer! 




RAINBOW 



NX-1020 

This next generation color printer sets new 
standards in color printer performance... 
225 cps, 4 NLQ fonts including Script, plus 
a new high speed draft font; but the 
enhancements don't stop there. Add a 16k 
buffer, a special quiet mode, top feed, 
bottom and rear tractor, and the list goes on. 
Seven on-demand colors, 8 color graphics 
modes. Epson and IBM emulation for 
maximum software compatibility. Virtually 
everything desired in a printer is here - 
speed, color and versatility at an affordable 
price with a 2 year warranty. 

OUR PLUG W GO FOR THE COCO 
SYSTEM INCLUDES: 

• NX-1020 Rainbow Multi-Font 
Printer 

• Blue Streak Ultima $0£Q95 

• Software Support 



Disk" 

Color Screen Dump 

Utilities 



$ 259 ! 



+$10 Shipping 
& Insurance 



COMPLETE 




The New Generation 
of §ic@)|p^ Printers 



NX-1001 

MULTI-FONT 

This enhanced version of the 
legendary NX-1000II is the 
latest low-cost high- 
performance printer from Star 
Micronics. Fully featured with 
4 NLQ plus a draft 
font. 10 
character 
sizes from 
subscript 
to 

quadruple 
size, 4k 

buffer, 180 cps, 
friction and tractor feed, 
and much much more. Backed by a 
2 year warranty. Epson and IBM 
emulation modes for maximum software 
compatibility. A performer so versatile 
you may never exhaust it's creative 
possibilities. 

OUR PLUG W GO FOR THE COCO 
SYSTEM INCLUDES: 

• NX-1001 Multi Font Printer 

• Blue Streak Ultima 

• Software $-fQQ95 
Support Disk" 



The Smallest, Sleekest, 
Fastest Serial To Parallel 
Converter You Can Buy! 

7 Switchable Baud Rates 
300 • 600 • 1200* 2400* 4800 
• 9600*19200 







$ 199 ! 

+$10 Shipping PAID* 

COMPLETE 



"The Software Support Disk 

A Dayton Associates exclusive that comes with any 
printer purchase. It consists ot a CoCo Installation 
Tutorial, a CoCo Graphics Screen Dump Utilities and a 
Control Code Tutorial. Provided to help you get the 
most out ot your system! 



Use this "smart" cable to con- 
nect a Centronics parallel 
printer to any version CoCo or 
use it to improve performance 
of your current printer. The 
cables are long-life, high 
quality shielded cables 
with moulded plugs for 
extra durability. 



The Blue 
Streak Ultima 



Powered version 
add $6.00. 



$ 39 



95 



+S2 Shipping 
PAID" 



All Dayton Associate's products have a 

30 day moneyback guarantee. 

All printer systems are 

"Plug 'n' Go for the CoCo". 



Epson Is a registered trade mark of Seiko Epson Corp 

IBM ts a registered trade mark of International Business Mactiines Corp 

Price and Specifications are subject lo change wilhoul notice 



■^FREE 

with purchase ol any 
NX-1020 or 
•1001 System 



^fl 




Order Your System Today... Call (513) 885-5999 



DAYTON ASSOCIATES ^, INC 

9644 Quailwood Trail • Spring Valley, Ohio 45370- 

Shipping charges to Canada. PR.. HI, AK. APO. FPO are double Triple charge to all other countries 



Visa & Master accepted within 

the continental U.S. 

Ohio residents add 6.5% sales tax 

COD add $3.00 




^ 
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The following products have recently been received by THE RAINBOW, examined by 
our magazine staff and issued the Rainbow Seal of Certification, your assurance 
that we have seen the product and have ascertained that it is what it purports to be. 



W Baseball Stats, a database that allows 
you to keep track of your favorite teams by 
year, game number and individual players. 
Files can be continual ly updated and games 
may be entered in any order. A 1 1 files can be 
edited, saved and reloaded. Special fea- 
tures include the presentation of game, team 
and seasonal scores, automatic computa- 
tion of hitting and pitching statistics and the 
options for making printouts of individual 
player stats. Trading Post, P.O. Box 3451, 
Carbondale, it 62902-3453; (618) 457-5258; 
$39.95 plus $3 Sift. 

BASIC Windows Version 2.0. a machine- 
language program for the 512K CoCo 3 
designed to create four working windows 
under Disk BASIC. KB Enterprises. 435 
Brightwaters Drive. Cocoa Beach. IL 32931; 
(407) 799-3253; $34.95 plus $3 S/H. 

"Q Envelope Writer. For daisy-wheel 
printers. Prints mailing and return addresses 
directly on the envelope. Owners of dot- 
matrix printers can use this program in 
conjunction with specially prepared tractor 
feed envelopes. Customize fonts for use 
with Tandy printers. Requires I6KC0C0 I. 
2 or 3 and Tandy or similar printer. Trading 
Post. P.O Box 3453, Carbondale. IL 62902- 
3453; (618)457-5258; $19.95 plus $3 SHI. 

CoCo Cassette #99. a monthly variety 
package of 10 different programs. This 
month's product includes a Morse code tu- 
tor, four games, a non-graphics biblical 
adventure, an alphabet tile sliding puzzle, a 
business proposal writer, a business con- 
tact database, and a program for organizing 
your ideas. Instructions for last month "s 
Maze Master 3 and the missing files for 
Wizard's Den are included. T&D Software. 
249ii Miles Standish Dr., Holland. Ml 49424; 
16/61 399-9468; S.s' each, $70 for a one-year 
subscription. 

K J V on Disk#16. the book of ll Chronicles 
from the King James version of the Bible. 



in ASCII files for the CoCo 1 . 2 and 3. Word 
processor or text editor is recommended for 
viewing the files. Requires at least ?2K and 
one disk drive. BDS Software, P.O. Box485, 
Glcnview. IL 60025-0485; $3. 

OS-9/68000 Microware BASIC Version 

2.3. a version of BASIC for Motorola 68000 
systems running OSK. It is source-code 
compatible with BASIC09 for the 6siw and 
supports all of the keywords available in 
the os-9/6809 version (except calls to gf x 
and gfx2. which are not supplied). 
Microware BASIC supports from 4K to nearly 
1 6 megabytes of memory for its workspace. 
Microware Systems Corporation. I900N.W. 
I Nth Street. Des Moines, IA 50322; <5I5>224- 
1929; $500 plus $5 SIH. 

Michael Milazzo Mystical Data, cassette 
tape of original music by Michael Milazzo. 
performed with CoCo Midi 3/Pro. Songs 
include "Lunar." "Dragonslair." "Equinox." 
"Renaissance." "Excursion," "Round- 
table." "Moondrone." "Midnight Frost" and 
"Into the Light." Rulaford Research. P.O. 
Box 53032S. San Diego. CA 92153; (61 9 1 690- 
IISI;S9.95. 

■^ DSDISK#1. four shareware programs 
requiring 32K ECB and a disk drive. Karate 



Lesson til is a graphics program for testing 
response time against two opponents. 3D 
Function Plot lets you plot 3D graphics. 
There are demos displaying 3D animation. 
The last program is aCoCo 2 bouncing-ball 
demo. All machine-language subroutines 
on DSDiSKttl are hand-written in 6809 ma- 
chine code, without using any assemblers, 
for maximum speed and efficiency. David 
Sham. 1155 E. 33rd Ave, Vancouver. B.C., 
Canada \5\ 3B4; $12 US plus $3 USS/H. 

Notebook, a general-purpose database 
generator and file/data management pro- 
gram to keep direct access records for prac- 
tically any information you desire. Keep, 
maintain, view, and print your Notebook 
data diskette directories as well as your file 
information. Keeps records of family infor- 
mation (birthdays, phone numbers, anni- 
versaries, etc.). video tapes, cooking reci- 
pes, personal diary, etc. Notebook runs on a 
CoCo 1 , 2 or 3 with single or multiple disk 
drives and works with any printer. It also 
comes with a database of Table of Contents 
of Product Reviews from the 1 990 series of 
Rainbow magazines. Johnson Software. P.O. 
BOX 92. Dayton, OH 45449; (513) S66-260I; 
S23.95 plus $250 SIH. 



First product received from this company 



The Seal of Certification is open to all manufacturers of products for the Tandy 
Color Computer, regardless of whether they advertise in THE rainbow. 

By awarding a Seal, the magazine certifies the program does exist — that we have 
examined it and have a sample copy — but this does not constitute any guarantee 
of satisfaction. As soon as possible, these hardware or software items will be 
forwarded to THE RAINBOW reviewers for evaluation. 
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by Mark Webb 




No pub, no ale', 
just don't hit 
the bull's toil 



had nevei seen a darts game designed 
specifically for the CoCo. sol review ed 
m\ high school trigonometry 10 pro- 
duce one. Darts is designed to run On a 

with an rob monitor. 

The game begins with the title screen 
Press any key to Start the game. The com- 
puter draws the game screen and you are 
given a choice ol playing either SOI or 
Tactics. 

With 501, your -core starts at 501. Sub- 
tract the shots hit on the board from this 
until your score reaches exactly zero. Your 
last sIk i| must be a double, that is you have 
to double out. It you go below zero, just 
press ENTER to pass. It's up to you to count 
yout score on the dart board and accurately 
enter it. 

In Tactics, the scoreboard 
is drawn differently, and you 
are provided with a list 
Of targets to bit. You 
must get three of each 
target and the most points 
to win this round. 
Once you have 
three of any spe- 
cific target, future 
hits nn that target add 
points tn youi score, unless the 
othet player also has three of that tar- 

Mark Webbisanoutdooi enthusiast whose 
activities include iiikins: in 'lie mountains. 
water skiing, trailblazing and fishing. He 
cun In' contacted at Box '■". Gold River. BC, 
( anada I Please include an S 

when requesting a reply 



GET 'EM WHILE 
THEY'RE 



BACK ISSUES STILL AVAILABLE 

Have you explored the wealth ot information in our past issues? From our very first, four-page issue to many with more than 300 pages 
of material, it's all just for CoCo users — a great way to expand your library! 

A WORLD OF INFO AT A BARGAIN PRICE 

All back issues sell for the single issue cover price. In addition, there is a $3.50 charge for the first issue, plus 50 cents for each additional 
issue for postage and handling if sent by United Parcel Service. There is a $5 charge for the first issue, plus a $1 charge for each additional 
issue on orders sent by U.S.Mail. UPS will not deliver to a post office box or to another country. 

MOST ISSUES STILL AVAILABLE 

Issues July 1981 through June 1982 are available on white paper in a reprint form. All others are in regular magazine form. VISA, 

MasterCard and American Express accepted. Kentucky residents please add 6 percent sales tax; Canadian residents, 7 percent GST. 

In order to hold down costs, we do not bill, and no C.O.D. orders are accepted. 

Due to heavy demand, we suggest you order the back issues you want now while supplies last. 

To check availability and order, review and fill out the form below and mail it with your payment. 

For greater convenience, order through the Rainbow Magazine Services area of our Delphi CoCo SIG. 



RAINBOW INDEX 

A complete index for, July 1 981 through June 1 984, is printed in the 
July 1 984 issue. Separate copies are available tor $2.50 plus 50c han- 
dling. 

Indexes for subsequent years are published annually in the July 
issues of THE RAINBOW. 

TOTAL 

KY RESIDENTS ADD 6% 

CANADIAN RESIDENTS ADD 7% GST _ 

U.S. MAIL CHARGE 

SHIPPING & HANDLING 

U.P.S. CHARGE 

TOTAL AMOUNT 

ENCLOSED 



Please send me the following back issues: 



Article Reprints 

In instances where a given issue is now out ot print and not available for 
purchase, we do provide photocopies ot specific articles. The cost for this service 
is $1 .50 plus 50 cents S/H per article. This service is provided only in the case of 
out-of-siock issues. 

Name 

Address 

City State 

J Payment Enclosed, or 

Charge to my: Q VISA J MC □ AE 

CARD # 



Zip 



EXPIRATION DATE 
SIGNATURE 



PHONE < 



TO ORDER BY PHONE (credit card orders only) call (800) 847-0309, 
8 a.m. to 5 p.m. EST. All other inquiries call (502) 228-4492. 



send to: 

THE RAINBOW 
The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
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Business 


$3.95 


j 


MAR 84 


Business 


$3.95 


a 


APR 88 


Home Help 


$3 95 


-i 


APR 84 


Gaming 


$3.95 


□ 


MAY 88 


Printer 


$3.95 


a 


MAY 84 


Printer 


$3.95 


a 


JUNS8 


Music 


$3.95 


j 


JUN84 


Music 


$3.95 


j 


JUL 88 


Anniversary 


$3.95 


j 


JUL 84 


Anniversary 


$3.95 


j 




VOLUME 8 








VOLUME 4 






AUG 88 


Games 


$3.95 


j 


AUG 84 


Games 


$3.95 


j 


SEP 88 


Education 


$3.95 


j 


SEP 84 


Education 


53.95 


j 


OCT 88 


Graphics 


S3.95 


a 


OCT 84 


Graphics 


53.95 





NOV 88 


Data Comm. 


$3.95 


j 


NOV 84 


Daia Comm. 


$3.95 


CI 


DEC 88 


Holiday 


$3.95 


j 


DEC 84 


Holiday 


53.95 


Cl 


JAN 89 


Beginners 


$3.95 


j 


JAN 85 


Beginners 


$3.95 


u 


FEB 89 


Home Help 


$3.95 


j 


FEB 85 


Utilities 


53.95 


ci 


MAR 89 


Hardware 


$3.95 


j 


MAR 85 


Business 


$3.95 


j 


APR 89 


Business 


$3.95 


□ 


APR 85 


Simulations 


53.95 


j 


MAY 89 


Printer 


$3.95 


□ 


MAY 85 


Primer 


$3.95 


j 


JUN89 


Summer Fun 


$3.95 


j 


JUN85 


Music 


$3.95 


j 


JUL 89 


Anniversary 


$3.95 


a 


JUL 85 


Anniversary 


53.95 


CI 




VOLUME 9 








VOLUME 5 






AUG 89 


Beyond BASIC 


$3.95 


Q 


AUG 85 


Games 


$3.95 


a 


SEP 89 


Education 


$3.95 


J 


SEP 85 


Education 


$3.95 


•j 


OCT 89 


Graphics 


$3.95 


-1 


OCT 85 


Graphics 


$3.95 


j 


NOV 89 


Data Comm. 


S3 95 


□ 


NOV 85 


Data Comm. 


$3.95 


Cl 


DEC 89 


Holiday 


$3.95 


□ 


DEC 85 


Holiday 


$3.95 


a 


JAN 90 


Beginners 


$3.95 


j 


JAN 86 


Beginners 


$3.95 


a 


FEB 90 


Home Help 


$3.95 


j 


FEB 86 


Utilities 


$3.95 


j 


MAR 90 


Hardware 


$3.95 


j 


MAR 86 


Business 


$3.95 


j 


APR 90 


Business 


$3.95 


a 


APR 86 


Home Help 


$3.95 


Q 


MAY 90 


Printer 


$3.95 


j 


MAY 86 


Printer 


$3.95 


j 


JUN90 


Summer Fun 


$3.95 


j 


JUN86 


Music 


$3.95 


j 


JUL 89 


Anniversary 


$3.95 


j 


JUL 86 


Anniversary 


$3.95 


a 




VOLUME 10 








VOLUME 6 






AUG 90 


OS-9 


$3.95 


j 


AUG 86 


Games 


$3.95 


j 


SEP 90 


Education 


$3.95 


-i 


SEP 86 


Education 


$3.95 


a 


OCT 90 


Graphics 


$3.95 


j 


OCT 86 


Graphics 


$3.95 


j 


NOV 90 


Data Comm. 


$3.95 


j 


NOV 86 


Data Comm. 


$3.95 


j 


DEC 90 


Holiday 


$3.95 


a 


DEC 86 


Holiday 


$3.95 


j 


JAN 91 


Beginners 


$3.95 


j 


JAN 87 


Beginners 


$3.95 


Q 


FEB 91 


Home Help 


$3.95 


-i 


FEB 87 


Utilities 


$3.95 


Cl 











To enter your score, with the arrow go 
to the bottom where the number is and press 
ENTER. Type in the amount of your score 
and press ENTER. Enter your score care- 
fully, the computer won't verify your en- 
tries on the board. After entering your score, 
press the right arrow to change players. 

Dart Throwing 101 

When the Ready message appears at the 
bottom of the screen, you can throw a dan 






orquit the game. To throw adart. look at the 
graph on the two sides of the dart board. 
Press F2 to start the cursor on the bottom 
graph moving. Press F2 again when the 
arrow reaches the horizontal position you 
want. Immediately a second bar starts 
moving up. Again press F2 to stop this bar 
in the desired location. The dart will hit 
approximately at the point where these two 
lines intersect on the dart board. If the bar 
on either graph goes all the way to the end 



of it. your throw is cancelled and you must 
try again. 

The games don't end automatically. 
When the game is over, press Q to quit. You 
have the option to continue play or quit the 
game. If you choose to quit, you'll see 
another prompt asking if you want to play 
again. 

I hope you have fun with Darts. 

J 



CoCo3 



^ 







/ 














/ 


.... 129 


1090.... 


...210 


2280 .... 


... 116 


\/ 


110 


Vr 


190 


17 

.... 203 


1220.... 
1330 .... 


47 
... 176 


2370 .... 
2470 .... 


47 
... 125 






230 




280 


29 


1420 .... 


... 115 


2580 .... 


... 158 




360 


.... 228 


1540 .... 


...103 


2670 .... 


27 




460 


.... 146 


1630 .... 


... 224 


2740 .... 


.... 174 




540 


52 


1700.... 


... 191 


2830 .... 


.... 168 




620 


32 


1760 .... 


... 129 


2883 .... 


.... 198 




720 


.... 167 


1830 .... 


... 113 


2895 .... 


.... 117 




810 


.... 111 


1940 .... 


... 203 


2980 .... 


.... 192 




900 


46 


2050.... 


... 255 


3080 .... 


92 




990 


90 


2170 .... 


. 189 


END .... 


126 



The Listing: DARTS 

10 'DARTS 

15 'WRITTEN BY MARK WEBB 

20 'COPYRIGHT FEBRUARY 1991 

25 'BY FALSOFT. INC. 

30 'RAINBOW MAGAZINE 

40 ' 

50 CLEAR1000 

70 POKE65497.0 

80 DIM QV(20).X.Y.Z.A.B.R.S.F.Q. 

A1.HV.C.D.E.RA.Y1.Z1.L.M.G.H.DT. 

B1.TK(12).H1$.H2$.H3$.P(2.12).DL 

(3.3).PF(2.2) 

90 HSCREEN2 

100 GOTO3000 

110 HCLS0:PALETTE0.4:POKE&HFF9A. 



120 PLAY"T255L255V31":HCOLOR4.0 

130 DATA 58.36.16,35.53,9.31.63. 

",51,0.44,58.36.16 

:40 F0RX-1 TO 15:REA0A:PALETTEX. 

A:NEXT 

150 DATA 3.17.2.15.10.6.13.4.18. 

1.20.5.12.9.14.11.8.16.7.19 

160 F0RX-1 TO 20:READOV(X):NEXTX 

170 F0RX-1 TO 4:H8UFFX.1020:NEXT 

180 HBUFF 5.155:HBUFF6.155:HBUFF 
".I0:HBUFF8.10:HBUFF9.10:HBUFF10 
. :0:HBUFF11 .3435 

H1$-"BM+14.0;U8H1U2NE2BR3NE2 
8L3H1U1H6U1H1U1H1U3E1BR1R1BL2U1E 
1U1E2U1R1U1E4R1E1R2D2G1ND3G3D1G1 

D1G1E1U1E1R1E1U1R3F1G3D1G1BL 
1L1BR2E1U1E3R1E1R1F1D1G1D1G2D1BL 
1L1BR2U1E4R1F1D3G1D1G1L1R1D3F1D5 

-riD2FlD2FlDlFlD2FlD2NL13BL8" 
195 H1$-H1$+"BU18U4BL4D2F1D1F1BL 

IH1U1H2" 
280 HDRAW"BM0.155;C4;XH1$;":HPAI 



NT(18.145).5.4 

210 HDRAW"BM0.124:C6;R2E1NL2E1NL 

2E1NL2E1R1L3BU2NR3H1NR2H1NR2H1NR 

2HlNR2BM+5.+5:C8:R5BR7NR9:C7:ElR 

3BD2L4BL8L1BU2R3" 

220 HGET(0.111)-(42.156).1:HLINE 

(0. 156)-(42. 111). PRESET. BF 

230 H2$-"BR12U6E1U11H1U1H1U2H1U3 

H1U2E6R1E2R1E1R2E1R2F1D1G1L1G2L2 

G2L1G3BL1L1BR2E1NF1E2R1E2R2F2G2L 

1G2E2R1E2R1U3D3R2D1G1D1G3NF1E3R1 

U1R2F1D1G1D1G1D1G2D3G1D3G1D15NL1 

2;BM-10.-26;F1D2F1D2BR3U5BR5BD1D 

1G1D1G1D1" 

240 HDRAW"BM0.155;C4:XH2$:":HPAI 

NTC17.150) .5.4 

250 HDRAW"BM8.113:C6:NR2F1NR2F1N 

R2F1R3BD2L3G1NR2G1NR2G1NR2BM+4.- 

4;C8:R5:BR10NR8U1C7NR3BD2NR3L1BL 

10L1BU2R4" 

260 HGET(0.111)-(42.156).2:HL1NE 

(0. 156)-(42. 111). PRESET. BF 

270 H3J-"BR14U6E1U2E1U3E1U5H1U3H 

1U3H1U4E2R1E3R1E1R1E1R2E1R5D1G2L 

2G2L2G2L1G1E1R1E2R2E1F2NU2D1G1L1 

G1L1G1E1R1E1R1E2R1F1D1G5E5D1R2D3 

G3D1G1D1G1D4G1D1G1H2L1H1F1R1F2D5 

GlD8NL12BM-8.-27;FlD48R3U5BR5BD2 

D1G2D1" 

280 HDRAW"BM0.155:C4:XH3$:":HPAI 

NTC17.150) .5.4 

290 HGET(0.111)-(42.156).4 

300 HDRAW"BM12.113;C6;NR2F1NR2F1 

NR2F1R3BD2L3G1NR2G1NR2G1NR2BM+4. 

-4;C8;R5BR11NR8E1C7NR3BG2NR5BL12 

U1BU1R4" 

310 HGET(0.111)-(42.156).3:HLINE 

(0.111)-(42. 156). PRESET. BF . 

320 HDRAW"8M1.1;C6:NR2F1NR2F1NR2 



FlR3BD2L3GlNR2GlNR2GlR2BM+2.-4:C 

8:R27L68UC7:NL18BD2L18" 

330 HGET(1.1)-(32.9).5:HLINE(0,0 

)-(32. 9). PRESET. BF 

340 HGETC1 . 1) (32.9) .6 

350 HCOLOR9:HLINE(0.24)-(24.0).P 

SET:HLINE(0.48)-(48.0).PSET 

360 HLINE(271.0)-(319.48).PSET:H 

LINE(295.0)-(319.24).PSET 

370 HPAINT(8.24).6.9:HPAINT(280. 

4). 6. 9 

380 F0RX-1 TO 300 

390 Z-RND(48):Y-RND(48) 

400 IF HP0INT(Z.Y)-6 THEN HSET(Z 

.Y.9) 

410 IF HP0INT(319-Z.Y)-6 THEN HS 

ET(319-Z.Y.9) 

420 NEXT 

430 HSET(32.8.3):HPA1NT(32.8).11 

,9 

440 HSET(280.6.3):HPAINT(280.6). 

11.9 

450 HCOLOR9:HL1NE(0.0)-(319.191) 

.PSET.B 

460 HLINE(0.167)-(104.171),PSET. 

BF 

470 FORX-20 TO 100 STEP20:HLINE( 

X.171)-(X.191).PSET:HPA1NT(X-2.1 

73).11.9:NEXT 

480 F0RX-1 TO 100 

490 A-RND(99):B-170+RND(20):IFHP 

0INT(A.B)-11 THEN HSETIA.B.4) EL 

SE490 

500 NEXT 

510 HCOLOR12:HLINE(168.176)-(280 

,176).PSET:HLINE-(280.56).PSET 

520 FORX-168 TO 280 STEP6:HLINE( 

X.176)-(X.173).PSET:NEXT 

530 FORX-176 TO 56 STEP- 6 : HLINE( 

277.X)-(280.X).PSET:NEXT 

540 HCOLOR3:HLINE(90.6)-(111.15) 

.PSET.BF:HGET(101.8)-(102.12).7: 

HGET( 100. 12) -(104. 131.9: HCOLOR0: 

HLINE(90.6)-(111.15).PSET.BF 

550 HDRAW"BM216.63:C12:NR3U4R3U3 

L3BR5R2D7L2U7" 

560 HDRAW"BM249.160:NR3U3R3U4L3" 

570 HDRAW"BM219.170;R3U4NL2U3L3" 

:HDRAW"BM232.168:R3L1U7D1NL1U1BR 

4R2D7" 

580 HDRAW"BM259.148:R3L1U6D1NL1U 

1BR3NR3D3R3D3L3" 

590 HDRAW"BM267.132:R3L1U6D1NL1U 

1BR3R3D6L3U6" 

600 HDRAW"BM270.115;R4U3L4ND2U2R 

3" 

610 HDRAW"BM265.99:R3L1U601NL1U1 

BR3R3D3NL2D3L3" 
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620 HDRAWBM260 . 86 : BR4U6D3NR1 L4U 

3" 

630 HDRAWBM247.71 : R3L1U7D1NL1U1 

BR3R3D4NL2D3L3U7" 

640 HDRAWBM201 . 66 : R3U4L3U3R3" 

650 H0RAW"BM182.75:R3L1U7D1NL1U1 

BR3R3D4L3D3R3" 

660 HDRAW"BM175.85;BR3U7L3D4R3" 

670 HDRAWBM165.100:R3L1U7D1NL1U 

1BR3D4R3L1NU4D3" 

680 HDRAW"BM162.116:R3L1U7D1NL1U 

1BR4D1NL1D6L1R2" 

690 HDRAW"BM235.66:R3L1U7D1NL1" 

700 HDRAW"BM171.146;R3L1U7D1NL1U 

1BR3D7R3U3L2" 

710 HDRAW"BM188.160:U7L3" 

720 HDRAWBM203.167:U6D1NL1D5L1R 

2BR4U6L3D2R2" 

730 HDRAW"BM168.132:R3U3NL3U4L3D 

7" 

740 HC0L0R14:HLINE(71.55)-(152.1 

60).PSET.B:HCOLOR15:HLINE(72.56) 

-U51.159).PSET,BF 

750 PF(1.1)-2:PF(2.1)-2:PF(2.2)- 

501:PF(1.2)-501 

760 AM$-RIGHT$(AM$.X) 

770 HCIRCLE(306.U3).9.1.6 

780 HCIRCLEC310.113) .9.1.6..75.. 

25 

790 HPAINT(307.112).3.1:HCIRCLE( 

306. 113). 2. 2. 3 

800 HCIRCLE(306.113).6.1.6:HPAIN 

T(317 . 113) .1.1 

810 "MAIN CIRCLE 

820 A-220:B-113:C-13:D-14:E-15 

830 HCIRCLE(A.B).48.C:HPAINT(A.B 

).E.C 

840 HCIRCLE(A.B).44.C:HCIRCLE(A. 

B).30.C 

850 HCIRCLE(A.B).26.C:HCIRCLE(A. 

B).6.C 

860 FORX-10 TO 370 STEP18 

870 RA-X/57. 29577951 :Y-A+SIN(RA) 

*47:Z-B+C0S(RA)*47 

880 HCOLORC:HLINE(A.B)-(Y.Z).PSE 

T 

890 NEXTX 

900 HC0L0RD:HCIRCLE(A.B).7.D:HC1 

RCLE(A.B).6.D:HCIRCLE(A.B).5.D:H 

LINE(A-1.B-1)-(A+1.B+1).PSET.BF: 

HCIRCLE(A.B).8.C 

910 HCIRCLE(A.B).8.C 

920 'MAIN CIRCLE PAINTS 

930 FORX-33 TO 393 STEP36 

940 RA-X/57. 29577951:Y-A+SIN(RA) 

*45:Z-B+C0S(RA)*45 



950 RA-(X+18)/57.29577951:Y1-A+S 

IN(RA)*31:Z1-B+C0S(RA)*31 

960 HPAINT(Y.Z).D.C:HPAINT(Y1.Z1 

).I>.C 

970 RA-X/57. 29577951:Y-A+SIN(RA) 

*27:Z-B+COS(RA)*27:HPAINT(Y.Z).D 

.C 

980 RA-(X+18)/57.29577951:Y-A+SI 

N(RA)*23:Z-B+C0S(RA)*23:HPAINT(Y 

.Z).D.C 

990 NEXT 

1000 GOTO1270 

1010 "DART ARC EQUATIONS 

1020 FORX-12 TO 15:PALETTEX.4:NE 

XT 

1030 K-((176-B)/120)/30:L-0:M-0: 

GOSUB1190 

1040 FORX-210 TO 150 STEP-4 

1050 L-L+K:M-M+2. 7: RA-X/57. 29577 

951 

1060 A-230*SIN(RA)+170:B-(230*CO 

S(RA)*L)+122+M 

1070 IF X-150 THENA-A-(((276-Al) 

/4.9)*2)/2-l 

1080 A-INT(A/2)*2+l 

1090 IF X-210 THEN G-A:H-B:HGET( 

A.B)-(A+31.B+8).6 

1100 HPUT(G.H)-(G+31.H+8).6.PSET 

1110 HGET(A.B)-(A+31.B+8).6 

1120 IF X<157 THEN HPUTt A.B) - (A+ 

31.B+8).5.OR:GOTO1140 

1130 HPUT(A.B)-(A+31.B+8).5.PSET 

1140 G-A:H-B 

1150 NEXTX 

1160 PLAY"01C" 

1170 PALETTE12.44:PALETTE13.58:P 

ALETTE14.36:PALETTE15.16 

1180 RETURN 

1190 "HAND ANIMATE SUB 

1200 FORHV-3 TO 1 STEP-1 

1210 HPUT(2.121)-(44.166).HV.PSE 

T 

1220 NEXT 

1230 FORHV-1 TO 4 

1240 HPUT(2.121)-(44.166).HV.PSE 

T 

1250 NEXT 

1260 RETURN 

1270 "MAIN LOOP 

1280 HGET(262.50)-(313.176).11:P 

T-1:DT-1:AP-6:GOSUB1860 

1290 GOSUB1370: "GRAPH ROUTINE 

1300 GOSUB1020: "HAND & DART ARC 

EQUATONS 

1310 GOSUB1580: 'CALCULATE RADIUS 

& ANGLE 
1320 DT-DT+l:IFDT-4 THEN HPUT(26 
2.50)-(313.176).ll.PSET:GOTO1340 
1330 GOTO1290 
1340 IF FL-77 THEN GOSUB 2160 EL 




SE GOSUB2600 

1350 IF PT-1 THEN PT-2 ELSE PT-1 

1360 DT-1:GOTO1290 

1370 'GRAPH SUB 

1380 HCOLOR6.0:HPRINT(14.23)."RE 

ADY. . .USE F2 KEY" 

1385 I$-INKEY$ 

1390 IFPEEK(344)-191THEN1400 

1392 IFI$-"Q" THENGOSUB2830 

1395 G0T01385 

1400 HCOLOR0:HPRINT(14.23)."READ 

Y. . .USE F2 KEY":SOUND233.2 

1410 FOR X-170 TO 275 STEP 2 

1420 HGET(X.171)-(X+1.175).8:HPU 

T(X.171)-(X+1.175).7.PSET 

1430 IF PEEK(344)-191 THEN 1470 

1440 HPUT(X.171)-(X+1.175).8.PSE 

T 

1450 NEXTX 

1460 PLAY"O1CCCGCCC":GOTO1380 

1470 A-X:A1-X:S0UND122.3 

1480 FORY-176 TO 56 STEP-2 

1490 HGET(275.Y-1)-(279.Y),10:HP 

UT(275.Y-1)-(279.Y).9.PSET 

1500 IF PEEK(344)-191 THEN 1540 

1510 HPUT(275.Y-1)-(279.Y).10 

1520 NEXTY 

1530 PLAY"01CCCDCCDDCCD":HPUT(A. 

171)-(A+1.175).8.PSET:GOTO1370 

1 540 B-Y : Bl-Y : PLAY"03D02D03E02E0 

3F02F" 

1550 FORZ-l TO 1000:NEXTZ 

1560 HPUT(A.171)-(A+1.175).8.PSE 

T: HPUTt 275. B-D- (279. B).10.PSET 

1570 RETURN 

1580 "DART LOCATION HIT CALCULAT 

E 

1590 

720 

1600 IF Al>220 THEN A-Al-220 ELS 

E A-220-A1 

1610 IF B1M13 THEN B-Bl-113 ELS 

E B-113-B1 

1620 R-SQR((A*A)+(B*B)):F-57.295 

77951 :S-B/R 

1630 IF Al>220 AND Bl-113 THEN A 

-90/F:GOTO1710 

1640 IF Al-220 AND BK113 THEN A 

-179/F:GOTO1710 

1650 IF AK220 AND Bl-113 THEN A 

-270/F:GOTO1710 

1660 IF Al-220 AND Bl>113 THEN A 

-359/F:GOTO1710 

1670 IF Al>220 AND BK113 THEN A 

-ATN(S/SQR(S*S+l))+90/F:GOTO171 



1680 IF AK220 AND BK113 THEN A 

-(270/F)-ATN(S/SQR(-S*S+l)):GOTO 

1710 

1690 IF Al>220 AND Bl>113 THEN A 

-(90/F)-ATN(S/SQR(-S*S+l)):GOTOl 

710 

1700 IF AK220 AND Bl>113 THEN A 

-(270/F)+ATN(S/SQR( -S*S+1 ) ) 

1710 Q-INT(((A*F)+10)/18)+1:IFQ- 

21 THENO-1 

1720 'DART TEXT HIT 

1730 C-HP0INT(A1.B1):HC0L0R6:DL( 

DT.1)-A1:DL(DT.2)-B1:DL(DT.3)-C 

1740 IFC-0 OR C-12 THEN HPRINTd 

7. 23). "YOU MISSED THE BOARD":SOU 

ND100.1:GOTO1810 

1750 IF C-13 THEN HPRINT(20.23) . 

"YOU HIT THE WIRE" : PLAY"04GG" :HP 

UT(G.H)-(G+31.H+8).6.PSET:G0T018 

10 



IF Al-220 AND Bl-113 THEN 1 
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1760 IF R<3 AND C-14 THEN HPRINT 

(15. 23). "YOU GOT A ***BULLSEYE** 

*":PLAY"T16L404CP8EP8GT255":G0T0 

1810 

1770 IF R<8 AND R>2 THEN HPRINT( 

16. 23). "YOU HIT DOUBLE BULLSEYE" 

:GOTO1810 

1780 IF R>26 AND R<30 THEN A$-"Y 

OU HIT TRIPLE"+STR$(QV(Q)):HPRIN 

T(20.23).A$:GOTO1810 

1790 IF R<48 AND R>44 THEN A$-"Y 

OU HIT DOUBLE"+STR$(OV(Q)):HPRIN 

T(20.23).A$:GOTO1810 

1800 AS--YOU HIT "+STR$(QV(Q)):H 

PRINT(20.23).A$ 

1810 SOUND1 .1 : I $-INKEY$ : CT-0 

1820 HSET(A1.B1.RND(15)):F0RZ-1T 

O20:NEXTZ:HSET(A1.B1.C):CT-CT+1: 

IF CT-55 THEN1840 

1830 I$-INKEY$:IFIS-""THEN1820 

1840 HCOLOR0:HLINE(104.183)-(318 

.190).PSET.BF 

1850 RETURN 

1860 'GAME SELECT & SCORE SETUP 

SUB 

1870 HCOLOR6.0:HPRINT(13.23)."CH 

OOSE: A-TACTICS OR B-501" 

1880 IS-INKEYS 

1890 I$-INKEY$: IF I $-" "THEN 1890 

1900 HLINE(102.182)-(318.190).PR 

ESET.BF:SOUND180.1:HCOLOR13.0 

1910 IF I$-"B" THEN 2110 

1920 IF I$<>"A" THEN1870 

1930 FORY-63 TO 151 STEP8:HLINE( 

72,Y)-(151.Y).PSET:NEXTY 

1940 HLINE(80.63)-(88.151).PSET. 

B:HLINE(98.64)-(98.159).PSET 

1950 HLINE(136.63)-(144.151).PSE 

T.B:HLINE (126. 64) -(126.159 ).PSET 

i960 HCOLOR12:HPRINT(9.7)."*TACT 

ICKS*":FL-77 

1970 I$-"BLTRDB20":TK(4)-20:TK(5 

)-RND(19) 

1980 FORX-6 TO 12 

1990 Z-RND(19) 

2000 FORY-5 TO X-l 

2010 IF Z-TK(Y) THEN1990 

2020 NEXTY 

2030 TK(X)-Z 

2040 IF Z<10 THEN I $-1 $+"0"+RlGH 

-$(STR$(Z).l) ELSE I$-I$+RIGHTJ( 

5TR$(Z).2) 

2050 NEXTX 

2060 I$-I$+"TT" 

2070 FORX-1 TO 23 STEP2 

2080 HPRINT(13.7+(X+1)/2).MID$(I 

S.X.2) 

2090 NEXTX 

2100 GOTO2150 

2110 HLINEt 72.63) -(151. 63 J.PSET: 

"LINE(112.63)-(112.159).PSET 

2120 HPRINT(9.7)."****501***":FL 

-33 

2130 HCOLOR12:HPRINT(10.8)."501" 

:INT( 15.8) ."501" 
2140 ' 
2150 RETURN 

2160 'ARROW FOR DART SCOREBOARD 
2170 FORX-1 TO 3:HSET(DL(X.1).DL 

X.2).10):SOUND60*X.1:NEXTX 
2:80 IF PT-1 THEN X-62 ELSE X-15 

' S$(1)-"R7NH3G3":S$(2)-"NE3N 



F3R7":GOTO2280 
2200 I$-INKEY$ 
2210 PALETTE10.RND(63):FORZ-1 TO 

66:NEXTZ:PALETTE10.4 
2220 IF I$-CHR$(9) THEN 2450 
2230 IFI$-""THEN2200 
2240 HCOLOR0:HDRAW"XB$;" 
2250 IF U-CHR$(94) AND AP>1 THE 
N AP-AP-1:PLAY"O2FF":GOTO2280 
2260 IF I$-CHR$(10) AND AP<12 TH 
EN AP-AP+1:PLAY"O2FF":GOTO2280 
2270 IF I$-CHR$(13) THEN 2310 
2280 HCOLOR10 

2290 B$-"BM"+STR$(X)+"."+STR$((( 
AP+7)*8)+2)+";"+S»(PT):HDRAW"XB$ 

2300 GOTO2200 

2310 IF AP-12 THEN 2360 

2320 IF P(PT.AP)<3 THEN P(PT.AP) 

-P(PT,AP)+1:GOSUB24 70:GOTO2180 

2330 HPRINT(14. 23). "INVALID CHOI 

CE!!!" 

2340 FORZ-1 TO 5: PLAY"02GB04BGBG 

02BG":NEXTZ 

2350 HCOLOR0:HPRINT(14.23)."INVA 

LID CHOICE! !!":GOTO2180 

2360 HC0L0R6:HPRINT(14.23)."AM0U 

NT?":AM$-"" 

2370 I$-INKEY$:IFI$-""THEN2370 

2380 IF IJ-CHR$(13) THEN2410 

2390 IF I$-CHR$(8) THEN HCOLOR0: 

HPRINT(22.23).AM$:GOTO2360 

2400 AM$-AM$+I$:HPRINT(22.23).AM 

$:GOTO2370 

2410 AM-VAL(AM$) 

2420 PLAY"01C02D03E04F05G":P(PT. 

12)-P(PT.12)+AM 

2430 GOSUB2470:HCOLOR0:HLINE(104 

.184)-(296.190) . PSET.BF 

2440 GOTO2180 

2450 FORX-1 TO 3:HSET(DL(X. 1) .DL 

(X.2).DL(X.3)):NEXTX:HCOLOR0:HDR 

AW"XB$:" 

2460 RETURN 

2470 'UPDATE TACTICS SCORE 

2480 HC0L0R12.15:HLINE(72.152)-( 

97. 158). PRESET. BF:HLINE( 127. 152) 



-(151. 158). PRESET. BF 

2490 FORW-1 TO 2 

2500 FORX-1 TO 11 

2510 IF P(W.X)-0 THEN2530 

2520 A$-STRING$(P(W.X)."*"):HPRI 

NT(9+(W-1)*7.7+X).A$ 

2530 NEXTX 

2540 A$-STR$(P(W.12)):A-LEN(A$)- 

1:A$-RIGHT$(A$.A) 

2550 IF LEN(AJ)<3 THEN A$-"0"+A$ 

:GOTO2550 

2560 HPRINT(9+(W-1)*7.19).A$ 

2570 NEXTW 

2580 PLAY"O3CFFFFF":HCOLOR0:HDRA 

W"XB$;" 

2590 RETURN 

2600 '501 SCORE UPDATE 

2610 FORX-1 TO 3:HSET(DL(X.1).DL 

(X.2).10):SOUND62*X.1:NEXTX 

2620 HCOLOR6.0:HPRINT(14.23)."AM 

OUNT?":AMJ-"" 

2630 IJ-1NKEY$:PALETTE10.RND(63) 

:IFI$-""THEN2630 

2640 IF I$-CHR$(13) THEN2680 

2650 IF I$-CHR$(8) THEN HCOLOR0: 

HPRINT(22.23).AM$:GOTO2620 

2660 AM$-AM$+I$:HPRINT(22.23).AM 

$:GOTO2630 

2670 IF PF(PT.2)<0 THEN PF(PT.2) 

-PF( PT . 2 )+AH : AM-0 : AM$-"0" : SOUND1 

82.2:SOUND47.1 

2680 IF AM$-"" OR VAL(AM$)-0 THE 

N HCOLOR0:HLINE(110.184)-(250.19 

0).PSET.BF:GOTO2810 

2690 AM-VAL(AMS):PLAY"01CC02DD03 

EE04FF05GG":PF(PT.2)-PF(PT.2)AM 

2700 IF LEN(AM$)<3 THEN AMJ-" "+ 

AM$:GOTO2700 

2710 HLINE(110.184)-(250.190).PR 

ESET.BF 
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2720 HC0L0R12. 15 : HPRI NT( 10+( PT- 1 

)*5.PF(PT.1)+7).AM$:IFPF(PT.1)-1 

THEN2800 
2730 X-76+(PT-l)*40:Y-PF(PT.l)*8 
+63:HLINE(X.Y)-(X+32.Y).PSET 
2740 PF(PT.1)-PF(PT.1)+1:AM$-STR 
$(PF(PT.2)):X-LEN(AM$)-1:AM$-RIG 
HT$(AM$.X) 

2750 IF LEN(AM$)<3 THEN AM$-" "+ 
AM$:GOTO2750 

2760 HPRINT(10+(PT-l)*5.PF(PT.l) 
+7).AM$:PF(PT.1)-PF(PT.1)+1 
2770 IF PF(PT.1)>-11 THEN2780 EL 
SE2810 
2780 X-73+(PT-l)*40:Y-64:FORZZ-l 

TO 2000:NEXTZZ:SOUND202.1:HLINE 
<X.Y)-(X+38.Y+94). PRESET, BF 
2790 PF(PT.1)-1:GOTO2760 
2800 PF(PT.1)-PF(PT.1)+1 
2810 FORX-1 TO 3:HSET(DL(X.1).DL 
(X.2).DL(X.3)):SOUND255-(X*60).l 
:NEXTX 
2820 RETURN 
2830 "END SUB 

2840 HC0L0R7.6:HLINE(142.14)-(18 
5.33).PRESET.BF:HLINE(141.13)-(1 
86.34).PSET.B 

2850 HC0L0R1:HPRINT(18.2)."QUIT? 
":HPRINT(18.3)."(Y/N)" 
2860 I$-INKEY$:IF 1$-"" THEN2860 
2870 IF I$-"Y" THEN 2882 

2880 IF I$-"N" THEN HCOLOR0:HLIN 
E(141.13)-(186.34).PSET.BF:PLAY" 
04BAGFE0C":RETURN 

2881 SOUNO11.5:GOTO2860 

2882 HCOLOR7.6:HLINE(118.14)-(20 



9.33).PRESET.BF:HUNE(117.13)-(2 
10.34).PSET.B 

2883 HCOLORl:HPRINT(15.2)."PLAY 
AGAI N?": HPRI NT( 18.3). "(Y/N)" 

2884 I$-1NKEY$:IFI$-""THEN2884 

2885 IF I$-"Y" THEN2888 

2886 IF I$-"N" THEN2909 

2887 S0UND5.5:G0T02884 

2888 FORX-1 TO 2 

2889 AM(X.1)-0:PF(X.1)-2:PF(X.2) 
-501 

2890 FORY-1 TO 12 

2891 P(X.Y)-0 

2892 NEXTY.X 

2893 HCOLOR0:HLINE(117.13)-(210. 
34).PSET.BF 

2894 HCOLOR0:HLINE(106.183)-(312 
.190).PSET.BF 

2895 HCOLOR15:HLINE(72.56)-(151. 
159) . PSET.BF 

2900 GOTO1270 

2909 FORX-1 TO 15:SOUND255- (X*10 
).5:PALETTEX.0:NEXTX 

2910 HCLS0:PALETTE0.0:HGET(0.87) 
-(54.95). 1:HCOLOR1: HPRI NT( 0.11). 
"THE END" 

2920 HGET(0.87)-(54.95).2:HPUT(0 

,87)-(54.95).l.PSET 

2930 PI-57.29577951:R-90:PALETTE 

1.36 

2940 FORZ-0 TO 360 STEP6 

2950 W-Z/PI:X-160-SIN(W)*R:Y-96- 

COS(W)*R:R-R-l 

2960 HPUT(X.Y)-(X+54.Y+8).2.PSET 

2970 NEXTZ 

2980 FORX-0 TO 200: PALETTE1 .RNDC 



16)+31:NEXTX 

2990 POKE65496.0:WIDTH32:CLS1:RG 

B:END 

3000 'TITLE 

3010 FORX-0 TO 7:PALETTEX.0:NEXT 

X 

3020 HCLSl:HCOLOR0:HLINE(0.0)-(3 

19.191).PSET.B:A-0 

3030 FORX-15 TO 304 STEP15 

3040 Z-X+RND(5)-3:Y-RND(180)+10: 

HLINE(Z.0)-(Z.191).PSET 

3050 HLINE(A.Y)-(Z.Y),PSET:A-Z 

3060 NEXTX 

3070 FORX-0 TO 333:HSET(RN0(319) 

.RND(191).0):NEXTX 

3080 A$-"U11R2F3D5G3L2BR8:U9E2R1 

F2D3NL5D6BR3:U11R4F1D3G2NL3F203B 

R6;UllNL3R3BM+8.+l;HlL3GlD3FlR3F 

1D4G1L3H1" 

3090 Y-120:C-3:Z-Y 

3100 FORX-50 TO 60 

3110 B$-"BM"+STR$(X)+"."+STR$(Z) 

+";C"+STR$(C)+":"+A$ 

3120 H0RAW"S24;XB$:" 

3130 C-C+l : IFC>7 THENC-3 

3140 Y-Y+.5:Z-INT(Y) 

3150 NEXTX 

3160 HC0L0R7:HPRINT(14.18)."BY M 

ARK WEBB" 

3170 HPRINT(16.19)."(C) 1990" 

3180 PALETTE1.35:PALETTE2.36:PAL 

ETTE3.16:PALETTE4.9:PALETTE5.36: 

PALETTE6.44:PALETTE7.54 

3190 EXEC44539 

3200 HDRAWS4:" 

3210 GOTO110 
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We've Just Converted Over 250 Macintosh Quality Pictures For The Color Computer. 
Each Set Includes An Excellent Graphics Editor! Pictures are CoCo-MAX II compatible. 



Set#l 

Clipart 

Space Pictures 
Animals 
More 



Set #2 

Celebrities 
Cartoon Characters 
Great Graphics 
More 



Set #3 

Adult Only 
R-Rated 
Beautiful Women 



Each Set Of 10 Disks 
Only $35.00 ! 

Buy 2, Get One Free! 



Coco 1,2 And 3 

32K Minimum 

Disk Onty 



T&D Subscription Software • 2490 Mies Standish Dr., Holland, Mi 49423 • 616-399-9648 
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in Kan you have (ailed the quest, but !h» band o! the 9000 
mem is 100 much 10 raslsi! Stolen by Ine evil necromancer 
;ha has Been secreted la' iiom prying eyes and ii is now up 
-gain me pieces 01 me my!lu;al lilo Force and saw 
:>&1 The Quesl tor TheMa is an outstanding arcade prog 
annbines action and adventure to bring you an incredible video game 
cuyinn experience Travel mrougtioul over 500 dWerenl scieens 
searcliing tor magical objects and spells, tigliling horrible crealuras, 
and galhering the various pans ol mo Lite Force guarded By ever- 
increasing terrors You'll enioy tne highest quality 320x200 resWu 
ion 16 color graphics and digital sound eiiecis thai you « 
exped trom Sundog Systems the game play 15 last and humus, and 
■inly you can rescue the princess and complete the LEGEND OF 
THEIDA' Hep I28K C0C0 3. disk 
ctive. and joystick (Muitlon 
- supported) 

Hint booi< now available to' rnelda! Contains clues, maps 

a BASIC piogram to modlly your own characters 1 H 95 



$34.95 




• - nave been chosen to pilot me spacecrali wielding the piutonlum 
siasma laser against the nelarious msectoids, the Zenians These 
tags nave been ripping oft tne space trade lines lor years; now 
■eyre about to lind a victim who can tight back 1 Beat back the 
i«arm ot pests 10 melt nome planet Zenix. and use the laser to and 
?w menace once and lo' all. Zenix is a lightning last arcade game lor 
5» 128K C0C0 3 The 320x225 16 color graphics are amazing, as 
iirjiial background music score and ettecls. all on a 128K 
cnpuler 1 The last action and game play will astound you in this 
SALAGA ol extermination Plug in your |oystick and strap in tor the 

■ ,our life' Call 10 order a demo 
At to see the action Delete you 
Mv-Reg 128KC0C0 3. disk drive. 
B joystick 



$29.95 



Visa Masiercard. Check. Money Order, and COD 
only, please) accepled. All foreign orders 
■ De seni in US currency Money Orders include 
$2 50 lor shipping In USA and Canada $5 00 
Foreign S3 00 exlta lor COD orders PA residents 
MO 6% sales lax Dealer inquiries welcome 
Authors we're looking lor new sollware 1 



in trie year 2671 a mysterious object landed on Earth, heralding the 
alien invasion ot me fled Falcon Only two courageous soldiers have a 
hope ot summing mis alien infestation. Armed with your military 
training and the latest weapon technology, you and a friend must 
light back me horde Sundog Systems presents oui second 5t2K 
game. trie Central. You'll see why we decided 10 use 512K on this 
project 1 Amazing graphics with 320x225 resolution, 16 color lull 
screen animation and horizontal smooth scrolling! Background digital 
sound eltects ano real-time music ! One or two player action AT THE 
SAME TIME! You'll agree thai this Is one ol the best arcade games 
yet tor your 512X C0C0 3 Needless to say playing hero won't be 
easy: playing The Conlras will be 
lougW Reo 512K C0C0 3, disk 
drive, and 2 -Button joystick 



$34.95 



The superior tecbnoiogy ol me evil Overlords has ensnared yet 
another innocent planet however . mis one contains the Crystal City, 
bastion m democracy and independence. Earth has had enough! 
•sign level upon *v* "• 'heir virtually invulnerable 
defenses, deleal the end guardians, and nuke your way ever closer 
to Ireelno me slaves ol tne Crystal City 1 This amazing arcade game is 
an achievement in its own right Full 128K/512K utilization! Super 
last horizontal hardware scrolling on the 128K computer 1 Wild digital 
sound ettfcis and background music score' 30 minutes, or over 30 
megabytes ol non-repeating 320x200 resolution, 16 color graphics! 
i MM disk 10 see II first 1 Can you save 
the Cysts City Iram unbeatable 
toes? Reg 128K CcCo ;, ctisn 
drive, ar.c 



$34.95 
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You've raved about mis 5t2K arcade 
gamB 1 The graphics and animation are 
amazing 1 You've got to near the digital 
sounds! 61 2K (three disks! packed with 
excitement 512KCoCo3only $34.95 



This marti3i arts arcade game remains a 
C0C0 3 phenomenon One 01 ou' best sell- 
ers 10 date! Play the incredible combat ex- 
perience 'hat you've been missing . and call 
tot Ihe availability ot tne OS-9 version 
I28K C0C0 3 action $29-95 

OS-9 Version Now Available 



ALSO AVAILABLE: 



Hall of Ihe King 1, 2. or 3 
C0C0I-3 $29.95 ea. 

Hall of tha King Trilogy $74.95 



White Fire ol Eternity 
C0C0 1 - 3 

Dragon Blade 
C0C0 1 - 3 



Kung-Fu Dude 
C0C0 1 - 3 



This 1 28K/51 2K sound sequencing syslem 
has become an immensely popular pro- 
gram Create musical scores using poly- 
phonic digitized sounds and a user-lriend- 
ly point and click editor. Call to order the 
SoundTrax demo program, and get 10% off 
your purchase with receipt. $34. 95 

Now Available: SoundTrax Inslrument sam- 
ple disks! Guitars, strings, woodwinds, 
and just plain weird instruments tot yout 
composing pleasure. Completely compati- 
ble with the SoundTrax system. 3 Hippy (2 
sides! disks lull dl sounds. $12 95 each or 
$29.95 lor all Ihree 



$24.95 



$19.95 



$19.95 



Champion 

C0C0 1 - 3 

Paladin's Legacy 
C0C0 1 - 3 



$19.95 

S24.95 

Warrior King 

CoCo3 $29.95 

In Quest ol the Star Lord 
CoCo3 $34.95 

Hint Sheet $ 3.95 




We've 
Moved! 



ciiopoa 

systems CJ 

P.O. Box 766 



Manassas, VA 22111 
703/330-8989 




novices niche 



Body Mass 

by Bob Teague 

In his book How to Re Your Own 
Nutritionist. Sluart M. Berger, M.D.. uses 
a body-mass worksheet from a recent 
report by the National Institute of Health 
to help readers determine if they are 
underweight, at optimal weight, are over- 
weight, or are obese. Since everyone is 
more health-conscious today, I decided 
to write a simple program to perform the 
necessary arithmetic. As the computer 
proficiency instructor at the high school 
where I teach. I use the program to dem- 
onstrate some of the basics of BASIC to 
my students. 

Since, according to Dr. Berger. only 
one in live Americans fall into their cor- 
rect weight range. 1 thought rainbow 
readers might enjoy using their CoCos to 
help them shape up. With three out of five 
Americans in the overweight and obese 
range, there should be a few readers who 
should use this program lo perhaps change 
their current lifestyle. 



The Listing: BODYMASS 

10 "BODY MASS 

20 -WRITTEN BY BOB TEAGUE 

30 'COPYRIGHT FEBRUARY 1991 

40 "BY FALSOFT. INC. 

50 'RAINBOW MAGAZINE 

60 CLS 

70 PRINT TAB(5);"B0DY MASS WORKS 

HEET" 

80 PRINT:PRINT 

90 INPUT"ENTER SEX (M/F)":S$ 

100 INPUT"ENTER WEIGHT IN LBS."; 

W 

110 INPUT"ENTER HEIGHT IN IN.";H 

120 REM CONVERT TO METRIC SYSTEM 

130 W-W/2.2 

140 H-H/39.4 

150 F-H«2 

160 M-W/F 

170 PRINT 

180 PRINT"80DY MASS-";M 

190 M-INTIM+.5) : 'ROUND OFF 

200 PRINT 

210 REM EVALUATION ROUTINE 

220 IF SJ-"F" THEN GOSUB 290 

230 IF SJ-"M" THEN GOSUB 360 

240 PRINT 



250 INPUT"ANOTHER CALCULATION (Y 

/N)":CJ 

260 IF C$-"Y" THEN RUN 

270 IF C$-"N" THEN END 

280 IF C$<>"Y" OR CJO"N" THEN G 

0T0 240 

290 REM FEMALE RATINGS 

300 IF M<20 THEN PRINT"UNDERWEIG 

HT" 

310 IF M>-20 AND M<-23 THEN PRIN 

T"0PTIMAL WEIGHT" 

320 IF M>-24 AND M<-26 THEN PRIN 

T"SLIGHTLY OVERWEIGHT" 

330 IF M>-27 AND M<-31 THEN PRIN 

T"OVERWEIGHT" 

340 IF M>31 THEN PRINT"OBESE" 

350 RETURN 

360 REM MALE RATINGS 

370 IF M<21 THEN PRINT"UNDERWEIG 

HT" 

380 IF M>-21 AND M<-24 THEN PRIN 

T"0PTIMAL WEIGHT" 

390 IF M>-25 AND M<-27 THEN PRIN 

T'SLIGHTLY OVERWEIGHT" 

400 IF M>-28 AND M<-31 THEN PRIN 

T"OVERWEIGHT" 

410 IF M>31 THEN PRINT"OBESE" 

420 RETURN 




/F\ 
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Science/Fun 



Weights on Other Planets 

by Richard Barberian, Jr. 



Have you ever wondered how much 
you would weigh on Mars or Saturn? 
With this program, your weight can be 
computed for each of these planets as 
well as other heavenly bodies, such as the 
moon or the sun ! Enter your own weight, 
or someone else's, and you'll be amazed 
and sometimes shocked at what you 
would weigh in other areas of the galaxy. 
Just for the fun of il. you might even want 
to enter the weight of inanimate objects, 
such as a I -lb. box of candy or your car! 

The Listing: WEIGHTS 



10 'WEIGHTS ON 


OTHER PLANETS 


20 'WRITTEN BY 


RICHARD BARBERIAN 


30 'COPYRIGHT FEBRUARY 1991 


40 'BY FALSOFT. 


INC. 


45 'RAINBOW MAGAZINE 


50 DIM M$(20).A$(2) 


60 CLS 






70 PRINT" 


WEIGHT 


ANETS" 






80 PRINT:PRINT: 


PRINT: 


90 PRINT-ENTER 


A GIVEN WEIGHT (I 


N LBS.)" 






100 INPUT 


W 




110 CLS 






120 PRINT' 


MAKE 


A CHOICE TO DETER 


MINE" 






130 PRINT- 


WEIGHT 


PLANET" 






140 PRINT: 


PRINT 


1. THE MOON" 


150 PRINT' 


2. 


PLUTO- 


160 PRINT' 


3. 


URANUS" 


170 PRINT" 


4. 


SATURN" 


180 PRINT' 


5. 


JUPITER- 


190 PRINT" 


6. 


MARS" 


200 PRINT" 


7. 


VENUS" 


210 PRINT" 


8. 


MERCURY" 


220 PRINT" 


9. 


THE SUN- 


230 PRINT" 


10. 


ENTER A NEW WEIG 


HT" 






240 PRINT" 


11. 


END" 


250 INPUT 


C 




260 IF C-l 


THEN 


M-.16:M$-"THE MO 


ON" 






270 IF C-2 


THEN 


M-.04:M$-"PLUTO" 


280 IF C-3 


THEN 


M-.79:MJ-"URANUS 



290 IF C-4 THEN M-.93:M$-"SATURN 
380 IF C-5 THEN M-2.34:M$-"JUPIT 
310 IF C-6 THEN M-. 38:M$-"MARS" 



320 IF C-7 THEN M- 
330 IF C-8 THEN M- 



.88:M$-"VENUS" 
.39:M$-"MERCUR 



350 
360 



340 IF C-9 THEN M-26.67 :M$-"THE 
SUN" 

IF C-10 THEN CLS:G0T0 80 

IF C-ll THEN CLS:END 
370 CLS:NW-W*M 
380 PRINT:PRINT:PRINT: PRINT 
390 PRINT USING" IF WEIGHT IS 
###.###.## LBS.";W 
400 PRINT" ON EARTH." 

410 PRINT:PRINT 

420 PRINT USINC'THEN WEIGHT IS # 
##.###.## LBS.":NW 
430 PRINT" ON "M$"." 

440 PRINT:PRINT:PRINT" (ENTE 

R C TO CONTINUE)" : INPUT C$:G0T0 
110 
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novices Hiche 



Home Help 



CoCo3 



Note Writer 

by John Musumeci 

Have you ever wanted to print a note 
or letter without hassle? Well, here is a 
very simple program that can be used 
without going to your word processor 
and remembering particular commands. 

Just load NOTERITE and run it. Move 
around the screen, if need be. by using the 
arrow keys. You can also use the SHIFT/ 
arrow keys to move horizontally and 
vertically to the screen borders. Use the 

The Listing: NOTERITE 

1 'NOTE RITE 

2 -WRITTEN BY JOHN MUSUMECI 

3 "COPYRIGHT FEBRUARY 1991 

4 'BY FALSOFT. INC. 

5 'RAINBOW MAGAZINE 
10 CLEAR 3000 

20 POKE150.7:'*BAUD RATE* 

30 0IMB$(21) 

40 WIDTH 40:T-0 

50 CLS5:LOCATE5.10:PRINT"ADJUST 

PAPER TO PERFORATION. PRESS <ANY 

KEY> WHEN READY TO WRITE." 
60 AS-INKEY$:IF A$-"" THEN 60 
70 CLS:F0R A-l TO 21 : B$( AJ-STRIN 
G$(40.32):NEXT A 
80 LOCATE0.21:PRINTSTRING$(40.45 



whole screen except the bottom three 
rows to write your letter. You can go over 
any part to rewrite or delete characters 
(with the space bar.) 

Line 20 sets the baud rate for your 
printer and can be eliminated or changed 
to suit your needs. If the letter is longer 
than one screen, don't worry, just con- 
tinue writing after printing that screen 
and it will fall into place. 



): 

90 L0CATE9.22:PRINT"PRESS <CLEAR 

> TO PRINTER" 

100 LOCATE10.23:PRINT"PRESS <BRE 

AK> TO QUIT": 

110 X-0:Y-0:A-1 

120 LOCATEX.Y 

130 A$-INKEY$: IF A$-"" THEN 130 

140 IF A$-CHRJ(3) THEN END 

150 IF A$-CHR$(12) THEN 330 

160 IF A$-CHR$(13) THEN Y-Y+1:X- 

0:A-A+1:GOTO 290 

170 IF AJ-CHRK8) THEN X-X - 1 : 1 F 

X<0 THEN X-0:GOTO 120 ELSE 120 

180 IF A$-CHRS<9) THEN 280 

190 IF A$-CHR$(10) THEN Y-Y+1:A- 



A+l : IF Y>20 THEN Y-20:A-21 :G0T0 
120 ELSE 120 

200 IF A$-CHR»(94) THEN Y-Y-1:A- 
A-l: IF Y<0 THEN Y-0: A-l: GOTO 120 

ELSE 120 
210 IF A$-CHR$(21) THEN X-0:GOTO 

120 
220 IF A$-CHR$(93) THEN X-39:G0T 
120 

230 IF A$-CHR$(91) THEN Y-20:A-2 
1:G0T0 120 

240 IF A$-CHR$(95) THEN Y-0: A-l: 
GOTO 120 
250 GOSUB 310 
260 MIDS(B$(A).X+1.1)-A$ 
270 LOCATE0.Y:PRINTB$(A): 
280 X-X+l : I F X>39 THEN A-A+1:Y-Y 
+l:X-0 

290 GOSUB 310 
300 GOTO 120 

310 IF Y>20 THEN Y-20:A-21 
320 RETURN 
330 L0CATE9.22:PRINT" PRINT 

I N G . ." 
340 IF T-0 THEN FOR X-l TO 12: PR 
1NT#-2:NEXT X :T-1 :AA-0:GOTO 360 
350 IF AA-1 THEN FOR X-l TO 24 :P 
RINT#-2:NEXT X:AA-0 ELSE AA-1 
360 FOR X-l TO 21:PRINT#-2.TAB(2 
0):B$(X):NEXT X 
370 GOTO 70 



Automatic Error Entry 

by Geoff Friesen 



When an error occurs during a BASIC 
program, a message is displayed and 
control returns to the OK prompt unless 
ON ERR GOTO is used. With some errors, 
such as bad syntax (SN) or undefined line 
(UL), it would be helpful for BASIC to 
automatically enter the built-in line edi- 
tor instead of you having to manually 
type EDIT and the line number. Autoerr 
performs this task. 

When an error occurs, an error mes- 
sage is displayed along with the incorrect 
line and control is passed to the EDIT 
command. Once you make corrections, 
pressing enter causes a return to the OK 
prompt. Some errors, such as disk errors, 
do not require automatic entry to the 
editor. In these cases, pressing ENTER 
exits the editor without making changes. 



To start this program type 
RUN"AUTOERR". Do not run Autoerr more 
than once since the dynamic loading 
mechanism will consume more memory 
with each load. The loading mechanism 
works by repositioning the top of the 
BASIC pointer (located at addresses $27 
and S2S) downward. 

/Wwrr has no effect if ON ERROR GOTO 
is being used. It is also useless for errors 
that occur in the direct mode. Autoerr 
requires a Color Computer 3 and does not 
need a disk drive. It is compatible with 
my other programs. Superpoke and llr. 

The Listing: AUTOERR 

'AUTOMATIC ERROR ENTRY 

1 'WRITTEN BY GEOFF FRIESEN 

2 'COPYRIGHT (C) JANUARY 1991 



3 'BY FALSOFT. INC. 
100 ' 

110 'AUTOERR 

120 ' 

130 '(C) 1990. RAINBOW 

140 ' - 

150 ' 

160 CLEAR 200.PEEK(&H27)*256+PEE 

K(&H28)-20 

170 SA-PEEK(&H27)*256 

180 SA-SA+PEEKUH28)+1 

190 FOR I-SA TO SA+20 

200 READ B$ 

210 POKE I.VAL("&H"+B$) 

220 NEXT I 

230 DATA 96. 68. 4C. 26. 03. 7E. AC. 73 

240 DATA BD.BD.C5.BD.B9.5C.DC.68 

250 DATA DD.2B.7E.85.36 

260 POKE &HAC6B.126 

270 POKE &HAC6C.SA/256 

280 POKE &HAC6D.SA AND 255 

290 WIDTH 32 

300 PRINT "AUTOERR INSTALLED" ^ 
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The Rainbow Bookshelf 



The Rainbow Bonk of Simulations 

20 award-winning entries from THE RAINBOW'S first Simulations contest. 
The Second Rainbow Book of Simulations 

The 16 Winners from our second Simulations contest. 
The Complete Rainbow (luide to OS-9 

Authors Dale Puckclt and Peter Dibble demonstrate OS-9's multitasking and multiuser features. 
The Complete Rainbow Guide to OS-9 Level II Vol.1: A Beginners Guide to Windows 

Puckclt and Dibble uncover the mysteries of the new windowing environment. 
The First Rainbow Book of Adventures 

Contains 14 winning programs from our firsi Adventure contest. 
The Second Rainbow Book of Adventures 

Featuring 24 of Ihc most challenging Adventure games ever compiled. 
The Third Rainbow Book of Adventures 

The Excitement continues wilh 19 new Adventures. 
The Fourth Book of Adventures 

Fourteen fascinating new Adventures from the winners of our fourth Adventure competition. 
\ Full Turn of the Screw 
The Rainbow Introductory (iuide to Statistics 

Dr. Michael Plog and Dr. Norman Stenzel give a solid introduction to Ihc realm of slatislical 

processes 

Name 

Address 

City 



State 

_l Payment Enclosed, or J 
□ VISA J MasterCard 

Account Number 

Card Expiration Date _ 
Signature 



Zip. 



Charge to: 

_l American Express 



J The Rainbow Book ot Simulations ( first) S 3SS~ $ 3.50 

J Rainbow Simulations Tape (first) 

2 First Simulations Package 

j The Second Rainbow Book ot Simulations 

J Second Rainbow Simulations Tape 

j Second Rainbow Simulations Disk 

J Second Simulations Package with Tape 

J Second Simulations Package with Disk 

j The Complete Rainbow Guide to OS-9 

J Rainbow Guide to OS-9 Disk Set (2 disks) 

Zl Rainbow Guide to OS-9 Package 

J The Windows & Applications Disk tor 

The Complete Rainbow Guide 

to OS-9 Level II. Vol. I 
JThe Rainbow Book ot Adventures (first) 
J Rainbow Adventures Tape (lirst) 
J First Adventure Package 
jThe Second Rainbow Book of Adventures 
J Second Rainbow Adventures Tape 
J Second Adventure Package 
j The Third Rainbow Book ot Adventures 
j Third Adventures Tape 
j Third Adventures Disk Sel (2 disks) 
j Tmrd Adventure Package with Tape 
j Third Adventure Package with Disk 
JThe Fourth Rainbow Book of Adventures 
j Fourth Adventures Tape 
j Founh Adventures Disk 
j Fourth Adventure Package with Tape 
j Fourth Adventure Package with Disk 
j A Full Turn of the Screw 
j Introductory Guide to Statistics 
J Guide to Statistics Tape or Disk (indicate choice 
j Guide to Statistics Package 

(Indicate choice of tape or disk) 

Add $2 per book Shipping and Handling in U.S. 

Outside U.S.. add S4 per book 

Kentucky residents add 6% sales tax 

Canadian residents add 7% GST 

(Allow 6 to 8 weeks for delivery) 

Mall to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. To 
order by phone (credit card orders onlfl call (800) 847-0309, 8 a.m. to 5 p.m. EST. For other 
inquiries call (502) 228-4492. 

note: Tne tapes and disks offered by The Rainbow Bookshelf are not stand-alone products. That is, they are intended 
te be an adjunct and complement to the books. Even if you buy the tape or disk, you will still need the appropriate book for loading 
and operating instructions OS-9 is a registered trademark ol the Microwave Systems Corporation. 



$>95' S 3.50 


$1*30" $ 6.00 


$,A95 S 4.95 


$_>95 $ 4.95 


$1*95 $ 4.95 


SJftfflS S 8.95 
S20S6 S 8.95 


51935 $12.95 


SJJMJO $19.95 


$47-95 $29.95 


$19.95 


$^95 $ 2.00 


S.-*95" $ 2.00 
$J530 $ 3.50 


$1335" $ 6.95 


$1335 $ 6.95 


$g7-«) $11.95 


$1*35 $ 6.95 


$^9^5 $ 6.95 


§1435 $ 7.95 


$2*30 $11.95 


§2636 S12.95 


§1035 $ 7.95 


§,335 $ 6.95 


§1435 $11.95 


$2036 $13.90 


§2536 $18.90 


$19.95 


§,*35 $ 2 95 


$^35 $ 2.95 


§1236 $ 4.95 










Total 
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Toll Free Order Line 



V-Term Terminal 

Vax, Unix, Mainframe, and BBS systems 
Vt-100, Vt-52, Vldtex & Ascll emulations 
Serial to 2400, RS-232 to 19.2 baud 
XModem, XModem-CRC, YModem, ASCII 
15 autodial, 10 programmable macros!!! 
Disk (128k/512k CoCo 3 only) .... $34.95 

Studio Works Pro 

NEW! CD Quality audio samples up to 35k 
by 8 bitsl Supports up to 1 MEG memory! 
SWP W/O cable $44.95 W/cable $59.95 
NEW ADC 8 bit ROM pak $49.95 

Turbo 512k Ram 

Fully assembled and tested board. 
Premium 120ns chips. Easy to follow 
Illustrated Instructions, Includes 512K 
RamDisk, RamTest, and Print Spooler. 

512k board w/software $79.95 

000k board w/software $29.95 

Quest for Thelda 

You must rescue the princess Thelda In 
this outstanding arcade style program. 
500+ screensl Digital sound effects! 
For 128k CoCo 3, Joystk & disk ... $34.95 

The Contras 

Amazing new 512K, 1 or 2 player action, 
digital sound effects & real time music. 
512K CoCo 3, 2B joystk & disk .... $34.95 

Crystal City 

You must free the slaves of the Crystal 
City In this fast action, arcade style game. 
128K CoCo 3, Joystk & disk $34.95 

ZENIX 

An extremely Fast & Exciting arcade style 
game with 32 levels of playl Blast through 
insectoids & destroy their planet ZENIX! 
For 128k CoCo 3. joystk & disk ... $29.95 

Those Darn Marbles 

This incredible 3D marble game features 
extra smooth screen scrolling, great sound 
effects, graphics, and action! 
For 512k CoCo 3. joystk & disk ... $31.95 

CoCo 3 Wheel 

Great family funl CoCo 3. disk ... $19.95 

Bowl Me Over 

Excellent bowling fun for all! ... $19.95 

□ Suprfile III 

A powerful, easy to use, multi-purpose 
database! Uses: Mailing Lists, Checkbook 
Manager, Personal Items Inventory, 
Audio/Video lists. Features: Add, Delete, 
Search. Sort, and Print Labels & Reports. 
For 128k CoCo 3 disk systems ... $24.95 



1-800-441-GIME 



GIMMESOFT 

P.O. Box 421 

Perry Hall, MD 21128 

301-256-7558 



Add $3.00 S8cH 
Add $3.00 COD 
MD add 5% tax 
Vlsa/MC.MO.Ck 
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CoCo Consultations 



Disk Drive Power 



by Marty Goodman 
Contributing Editor 



Do disk drives require 12 volts for 
their motors'.' Are there any that 
require just 5 volts for both the 
motors and logic? 

R. Coates 
Sandy Hook. Manitoba 

All 554-inch drives I have seen require a 
regulated source of 1 2 volts for their motors 
in addition to a regulated source of 5 volts 
for their logic boards. Some of the very 
newest l.44-Meg, 3'/2-inch drives, including 
one from Toshiba, use a single 5-voll source 
for all their needs. 1 do not know if they use 
a 5-volt motor or if they have some kind of 
voltage convener onboard. I suspect the 
former. 

RS-232 Pak ( ACIA) Speed 

The 0551 chip in the Tandy RS-232 Pak is 
rated to operate up to I MHz. Is this a 
problem when using the RS-232 Pak under 
OS-9 Level II at 2 MHz? 

Paul McKay (PAULMCKAY) 
Asked on Delphi 

I have seen few reports of problems with 
the RS-232 Pak when used under OS-9 Level 
II since the 655 1 chip in the Pak was replaced 
with a 6551 A chip (rated for 2-MHz opera- 
tion). If I had problems with my RS-232 Pak 
under OS-9. 1 would test the pack under Disk 
basic at 1 MHz with a Disk BASlC-based 



Martin H. Goodman. ML., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi. Marty is the 
SIGop of rainbow's CoCo SIC and database 
manager of OS-9 Online . H is non-computer 
passions include running, mountaineering 
and outdoor photography. Marty lives in 
San Pablo. California. 



terminal program, or I would artificially 
slow OS-9 to 1-MHz operation via a poke 
from BAS1C09 and see if the problem went 
away. If the problem disappears, buy a 
6551 a chip and install it. Note that on some 
models of Tandy RS-232 Pak. the 655 1 chip is 
soldered directly to the board and replace- 
ment requires skill in desoldering 28-pin 
chips. Many of the packs made by third 
parties, such as Disto and Orion, use 6551A 
chips when delivered and do not have this 
problem. If you are uncertain about what 
version of 6551 chip is in your RS-232 Pak. 
open it up and look at the chip. It will be 
either a 6551 (1-MHz rated) or a 6551A (2 
MHz). Note. too. that most folks report their 
1-MHz rated 6551 chips work fine at 2 MHz 
under OS-9 Level il. 

Drives Laying Down on the Job 

Is there any problem with laying a ver- 
tically mounted disk drive system on its 
side' Are there any problems related to the 
system's proximity to a TV? 

Kellie Gore 
Pace. Florida 

Disk drives are made to operate either 
vertically or horizontally so, barring some 
weird internal problem like a loose wire in 
the case, it should not matter if you lay your 
vertically mounted case on its side. And it 
should not matter if your disk drive is near 
yourTV. though this placement could result 
in added RF interference and distortion of 
the TV image. It is possible that some older 
TV sets with a very big power transformer 
near the disk drive cabinet could affect disk 
operation. 

New Colors for Older Games 

Is there a program that will help me play- 
games like Ghana Bwana. Pitstop and 
Doubleback on my CoCo 3? 

Steven W. Pernod 
York. Pennsylvania 



Delphi has a program by Steve Bjork 
that converts Ghana Bwana and a few of 
his other games for the CoCo 3. Double- 
back is a ROM pack that uses the Hi-Res 
mode of the CoCo I and 2. First convert it 
to disk operation, then use RGB FIX (sold by 
Microcom) to convert the color set. I don't 
know about Pitstop. but many old CoCo 2 
games run fine on the CoCo 3 once the 
color set has been converted with RGB FIX. 

Sony Cable/Disk Zapping 

Will the Sony monitor cable sold by 
Microcom for the Sony KV13IICR TV work 
on a Sony KV 25-inch XBR TV? Also, is there 
a disk utility that automates the recovery of 
damaged disk directories and that fully 
supports 40-track disk formats under Disk 
BASIC? How about recovering killed files? 

W. Sanders 
Chula Vista. California 

1 designed and built the Sony cable sold 
by Microcom and Howard Medical. It 
should work fine with the Sony 25-inch XBR 
TV provided the TV has a Sony-standard. 34- 
pin, dual-in-line analog RGB port. Note that 
the Sony 25-inch XBR TV probably supplies 
+5 volts on pins I and 2 of its 34-pin connec- 
tor so you can. and probably should, mod- 
ify my cable to get its source of +5 volts 
from the monitor's pins I and 2 and not 
from the joystick port. 

If a given disk sector is crashed, there is 
no way to recover what was on it. A long 
time ago I wrote a program to analyze the 
disk directory and print all the relevant 
information from the directory and Gran- 
ule Allocation Table (GAT). This program 
was published in THE rainbow many years 
ago. It might be helpful in recovering disk 
files if the directory is intact, but the gran- 
ule allocation table is lost. Still, if the file 
was longer than one granule, you would 
have to pick through the GAT by hand, 
matching one granule with the next. There 
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is no way to effectively automate this proc- 
ess if the GAT is gone. In theory it would not 
be hard to devise a simple BASIC program to 
analyze a gat where the directory track 
was smashed and group all related granules 
together in a list. I don*t know of any such 
program. KDisk is a shareware program 
(available on Delphi) that can "zap" 40- 
track disks. I highly recommend it. 

Recovery of killed files is quite impos- 
sible to fully automate since all trace of the 
first granule of that file on the disk is 
destroyed. Of course, it might be helpful to 
have a program that analyzed the GAT and 
found all free granules and then, one by 
one, displayed them for your enjoyment. 
Right now I know of no such aid. You have 
to do this by hand with a disk -zap program. 

Installing Smart Watch 

Can 1 install the Tandy SmartWatch in 
ihe 28-pin socket in my FD-5O0 disk control- 
ler that currently houses the 177} disk con- 
■oiler chip? 

David Raspberry (DAVEKAZZ) 
Cleveland, Ohio 

No! The SmartWatch is meant for in- 
flation only under 28-pin ROMs or eprom s. 
The pin-out of the disk controller chip is 
completely different from any ROM. The 
IT73 chip does not even use the same lines 
as the ROM chip. The FD-500 uses a 24-pin 
ROM chip. You might consider burning 
your Disk BASIC into a 2764 EPROM and 
:hase a 24- to 28-pin adapter from Art 
lexser of SpectroSystems. Piggyback the 
apter. the SmartWatch and the EPROM. 
The problem is that such a tower of adapt- 
ers might cause problems with physically 
fitting the controller into the CoCo or Multi- 
Pak slot. 

Mapping Memory 

Can you provide a memory map for the 
tlor Computer's I/O space? 

Jason Bucata (JBLt \TA) 
Ferndale, Michigan 

Because so many third-party devices 
ave been made for the CoCo over the last 
i years, I can't begin to give you a com- 
ete map. But I can provide you with a fair 
nount of useful information. 
The I/O page for the CoCo is limited to 
resses SFFOO thru SFFEF. However, most 
I this is unavailable for use due to ports 



reserved for the disk controller, the keyboard 
PIA and the other PIA chip on board, the 
GIME chip, the Multi-Pak and sam/vdg 
register emulation. The I/O page is also 
limited due to wasteful decoding that ghosts 
(duplicates) many of the internal ports. 

Addresses used by the CoCo and wasted 
by ghosting are in the range sffoo through 
SFFl F. The keyboard PIA is mapped to ports 
SFFOO through SFF03. And all ports from 
SFFOO through SFFiF are wasted due to sloppy 
decoding in the CoCo I and 2. 1 believe that 
in the CoCo 3 you have ports at SFFio 
through SFFIF to play with, and possible 
decoding via an unused line on the 74LSI38 
chip in the machine. 

At addresses SFF20 through SFF3F, the 
6821 PIA chip services the joystick and cas- 
sette ports, and the bit-banger serial port. 
This pia is mapped to addresses SFF20 
through SFF23. On the CoCo 1 and 2 those 
ports are ghosted through SFF3F which 
wastes that entire 32-byte block of I/O ports. 
With the CoCo 3. you have access to ports 
SFF30 through SFF3F and may be able to 
select them via an unused line on the 74LSI38 
chip. 

Adresses SFF40 through SFF5F are se- 
lected when the "SCS line goes Low and are 
usually used to control the disk controller 
card. Specifically the Tandy-type disk 
controller uses SFF40 to control drive select, 
motor on, double-density enable, wait 
enable and write-precompensation enable. 
These controllers also use ports at SFF48 
through SFF4B to communicate with the 
floppy disk-controller chip. Most disk 
controllers ghost those ports in the sffso 
through SFF5F region, making those 16 
addresses unusable. Most Disto products 
further decode the "SCS line to limit disk- 
controller ports to SFF40 through SFF4F and 
then use the range of SFF50 through SFF5F 
for control of Mini-bus functions, such as a 
hard drive port, an RS-232 port, a parallel 
port, a real-time clock and an EPROM pro- 
grammer. Some other third-party hard-drive 
host adapters also use ports in this range, 
but they must use a Multi-Pak to switch the 
•SCS line between the standard disk con- 
troller and the host adapter. 

Addresses SFF60 through SFF7E are avail- 
able for general purpose third-party I/O 
ports. In this range, stay away from SFF68 
through SFF6F since these 8 bytes are pretty 
much reserved by convention for one of 
two 6551 chips mapped to act as hardware 



serial ports. The normal Tandy RS-232 Pak 
is mapped to SFF68 through SFF6B. The 
Tandy Modem Pak and third-party second 
serial ports (other than Disto Mini-bus 
products) are mapped to SFF6C through 
SFF6F. Various Tandy and third-party prod- 
ucts have previously used this range for 
different purposes. For example, the all but 
forgotten Tandy X-Pad uses ports at SFF60 
through SFF63. Speech Systems products 
used ports in the SFF70 through SFF7E range 
for its Stereo Pak. SC-oi Voice device and 
Ears. 

SFF7F is reserved for switching *scs, 
*CTS and 'CART among the four slots in the 
Multi-Pak Interface. Addresses SFF80 
through SFFEF are used in CoCo 3 for GIME 
chip functions and for emulation of the vdg 
and SAM chips. On the old CoCo 1 and 2, 
which had no GIME chip, ports at SFF80 
through SFFBF were available to, and some- 
times used by. third-party devices. Ports at 
SFFC0 and up were used for vdg and SAM 
control. SFFFO through SFFFF are reserved 
for CoCo interrupt and reset vectors. 

As you can see there are only 23 unused 
ports available in the SFF60 through SFF7F 
range ( since SFF68 through SFF6F and SFF7F 
are reserved ). If you need more ports, you 
must consider a multiplexing scheme. If 
you are a hacker making a one-of-a-kind 
device, there are various sneaky tricks to 
gaining extra ports. For example, try piggy- 
backing on top of existing PIA chips and 
using a single inverter gate to decode for 
the second PIA chip. On the CoCo 3 the 
high-order four bits on the port of the 68B2 1 
pia chip mapped to SFF22 can be used as 
inputs due to an ideosyncrasy involving the 
conversion from use of a vdg and SAM chip 
in the CoCo I and 2 to the use of the GIME 
chip to control video modes. 

Printer Substitutions 

/ have an IBM Prowriter I want to substi- 
tute for my DMP-Iio. But when I hook it up 
to my CoCo 3 via a Metric Industries serial- 
to-parallel interface it will not print, even 
though it self-tests fine. Can'^ou help? 

Richard Ford 
Pome Vedra Beach. Florida 

I am not familiar specifically with the 
Prowriter. Check to see if it supplies +5 
volts on Pin is of its parallel connector. If 
not. get an external power supply for your 
Metric Industries converter and move an 
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DB-25 


DB-9 


Function 




8 
3 

2 
20 
7 
6 
4 
5 
22 


1 

2 
3 
4 
5 
6 
7 
8 
9 


Carrier Detect 

Receive Data 

Transmit Data 

Data Terminal Ready 

Ground 

Data Set Ready 

Request To Send 

Clear To Send 

Ring Indicator 


(DCD) 
(RXD) 
(TXD) 
(DTR) 
(GND) 
(DSR) 
(RTS) 
(CTS) 
(RD 


To make a null-modem cable for use with the 4-pin serial port: 




CoCo 
4-pin DIN 


PC-Compatible 
Serial port 


, 




1 


DTR. DSR and DDD 






2 
3 


TXD 

Ground (GND) 






4 


RXD 






Also, hook RTS to CTS on the PC-compatible side. 





Table 1: Pinouts for Serial Cable 





internal jumper to tell it to accept internal 
power. For further instruction, consult the 
documentation or Metric Industries. 

Foreign Disks 

Does anyone know of a program that 
allows a CoCo to read and write 
Commodore 64 and Apple II disks.' 

Kent Pirkle (KPIRKLE) 
Cumming, Georgia 

The Apple II and the earlierCommodore 
64 drives used group-coded records to place 
data on the disk. This is. at the hardware 
level, quite a different approach than the 
modified-frequency modulation (MFM) 
used by CoCo and IBM disk systems. For 
this reason, it is physically impossible with 
standard CoCoorlBM disk hardware for the 
CoCo or an IBM compatible to read, format 
or write Apple ll and older Commodore 64 
disks. When transferring files from one of 
those machines to or from a CoCo or IBM 
PC your best bet is to use the serial ports on 
both computers, a null-modem cable, and 
then send the data between the two comput- 
ers using a terminal emulator program 
running on each machine. If the two com- 
puters are physically distant so that a null- 
modem cable will not work, you can upload 
the file from one computer to your Work- 
space on Delphi (or other BBS), then later 
download the file using the othercomputer. 
Note that some Commodore word proces- 
sors use PETASCII, a variant of ASCII in 
which the encoding of lowercase and up- 
percase letters is reversed. If you encounter 



PETASCII files, you may have to write a little 
BASIC converter program to reverse upper- 
and lowercase. Lonnie McClure 
(LMCCLURE) of Kentucky tells me that some 
later model Commodore drives used MFM 
encoding, and in theory you could read and 
write those disks using CoCo hardware. 
However. I know of no IBM or CoCo pro- 
gram that supports this format. 

Of Capacitors and Keyboards 

What are the values ofC65 and coo. the 
two little capacitors I clipped off when I 
upgraded a CoCo 3 toSI2K? I need to know 
so I can re-install them while temporarily 
downgrading a CoCo 3 to I28K. Also, my 
old CoCo 3 recently went had, with key 
entries randomly occurring even though 1 
was not using the keyboard. Any ideas on 
how to fix this? I must confess. I am using a 
Marty Goodman keyboard-extender cable 
sold by Microcom and may have zapped the 
machine through that cable with a static 
discharge. 

Jim Hawerbier (JIMHOW) 
Elmhurst, Illinois 

The value of C65 is 82 pFand the value of 
C66 is 27 pF. Anything reasonably close to 
these values (plus or minus is percent) is 
fine. However, note thai in my experience 
a CoCo 3 with those caps clipped off worked 
fine when downgraded to 128K. There is no 
apparent need to replace the caps, espe- 
cially if you are only temporarily down- 
grading the machine and you experience no 
problems after using this advice. 



The keyboard problem you report is 
likely to be caused by a bad keyboard PIA 
chip. This is the 40-pin chip located right 
next to the 68B2I chip. Replacements are 
available from Tandy National Parts. You 
have to desolder the old keyboard pia chip, 
which is a tedious and delicate matter ac- 
complished best by clipping each of the old 
chip's pins, then individually pulling them 
out using a soldering iron and long nosed 
pliers. Be sure to install a socket after 
removing the old chip! One Delphi mem- 
ber recently reported a keyboard problem 
caused by a bad 74LS30 (keyboard-interrupt 
generator) chip. In your case, however. I 
would tend to first suspect the keyboard PIA 
chip. In the future, remember to have your 
remote keyboard in a case so you cannot 
touch the cable that goes to it from the 
keyboard connection. 

The 4-Pin to 9-Pin Connection 

How do I make a null-modem cable for 
hooking my CoCo' s 4-pin serial port to my 
IBM AT's 9-pin DB port? 

Steve Flock (WEJAILER) 
Vancouver. Washington 

Here is some very general reference 
information that should help you with this 
and other problems. There are two very 
common standard types of connectors used 
with RS-232 serial ports on PC compatibles. 
One type of connector is a male DB-25 
connector, used on older XT clones and 
some more recent computers. The other 
type of connector is a male DB-9 connector 
used on many AT and 386 machines as well 
as on many lap-top PC-compatible comput- 
ers. The pinout of those connectors is shown 
in Table 1 . 

A cable made like this should work fine 
as a null-modem cable. I hope this proves 
helpful to others who are confused about 
the two standards in PC-compatible serial 
ports. 



Your technical questions are wel- 
comed. Please address them to CoCo 
Consultations. THE RAINBOW, P. o. Box 

.585, Prospect. KY 40059. 

We reserve the right to publish only 
questions of general interest and to edit 
for brevity and clarity. Due to the large 
volume of mail we receive, we are unable 
to answer letters individually. 

Questions can also be sent to Marty 
through the Delphi CoCo SIO. From the 
CoCo SIG> prompt, pick Rainbow 
Magazine Services. Then at the rain- 
bow> prompt . type ask (for Ask the 
Experts) to arrive at the kxperts> 
prompt , where you can select the "CoCo 
Consultations"online form, which has 
complete instructions. 
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Advertisers Index 



We encourage you to patronize our advertisers — ail of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



Alpha Software Technologies .... 79 

Burke & Burke 73 

CoCo Pro 49 

Color Systems 57 

Computer Plus IFC 

CRC/Disto 65 

Danosoft 19 

Dayton Associates 

ofW.R. Hall, Inc 81 

Delmar Company 35 

Delphi 9 

Delphi IBC 
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Eversoft Games. Ltd 63 
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Rainbow Binders 16 



Rainbow Bookshelf 93 
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Ramco 33 

Rick's Computer Enterprise 23 
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SD Enterprises 17 

Sub-Etha Software 59 

Sundog Systems 89 

Supersoft. Inc 43 

T & D Software 1 3 

T & D Software 39 

T & D Software 7 1 

T & D Software 88 

Tandy BC 

Trading Post 31 

True Data Products 61 
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P Call: 

Belinda Kirby 



Advertising Representative ^ ^ 



(502) 228-4492 





□ Call: 

Kim Lewis 

Advertising Representative 

(502) 228-4492 



The Falsoft Building 
9509 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059 



FAX (502) 228-5121 
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SLOT PACK III 




Release III of Howards replacement for the multipack interface combines a smaller case for 
more desk space and full compatibility with CoCo products. 

Place your disk controller in the middle slot, a B&B harddrive controller in slot one and an 
RS232 pack or modem pack in the unswitched 3rd slot. 

ROM packs will work in the middle slot or slot 1 with the addition of our hard switch. OS-9 
programs will fly with the new addition of the F (fast) chip on the data bus. 

The new 12 volt adaptor now supplies current for the MP-III instead of drawing it entirely 
from the Color Computer. 

And the added leg underneath the slots add extra stability. 

Expand your CoCo to its fullest potential with three additional slots of Howard's slot pack III 
for only $89.45 and power it with the AC-1 2, 1 2 volt adaptor for $1 4.95 




HOWARD MEDICAL COMPUTERS 



(R) 



1690 NORTH ELSTON, CHICAGO, IL 60622 

1-800-443-1444 312-278-1440 




DELPHI'S 20/20 ADVANTAGE, 
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$124 



$120-$256 



COST OF 20 EVENING HOURS 
OF DOWNLOADS AND CHAT 



On DELPHI'S 20/20 Advantage Plan, you get 20 hours of connect time each month for 
only $20. Additional time is only 2 cents/minute. No other full-featured online service 
even comes close! 

And those are 20 hours of real online fun and productivity. Download files, chat with 
friends, send electronic mail, play multi-player games, and make travel reservations. 



Join DELPHI now for only $39.95 and your first 
20 hours are free. With your CoCo and 
modem: 

• Dial 1-800-365-4636 

• At Username: type JOINDELPHI 

• At Password: type COCO20 



DELPHI 



THE WORLD'S PREMIER ONLINE 
INFORMATION SERVICE 

800-544-4005 • 617-491-3393 



Already a DELPHI member? Type GO USING ADVANTAGE 



COLOR 
COMPUTER 3® 



>$REG. 
199.95 



Wrth I2SK Extended BASIC l 
programming power mi great 
graphics. Connects to TV or 
hi-ns 04-8 color monitor. 
#16-3334 



SUPER CM-8 
COLOR MONITOR 

REG. 
299.95 

Show off your ckorts, graphs and 
games m mid color. Hi-rts 
80x24 tot and 640*192 
graphics. #26-3215 
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COLOR THINLINE 
DISK DRIVE 

REG. 
299.95 

Turn your CoCo 3 into a disk 
system. Write your own disk 
applications or add ready-to- 
run software. #26-3133 



DC MODEM 

PAK 



REG. 
89.95 



Your CoCo's 300-hpt Unk to 
the outside world. Transfer and 
receive ASCII fhos. Accoss data 
semes. #26-2228 
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